<p>FSO+递归生成文件列表(xml)</p>
<p>本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要IIS的FSO组件支持.生成类似下面的XML文档 <br />
<?xml version="1.0" encoding="gb2312"?> <br />
<ftp ip="10.1.228.228"> <br />
<DIR path="Game"> <br />
<DIR path="仙剑奇侠传2（save）"> <br />
<file size="346294">complete_camel.rar</file> <br />
<file size="1886286">complete_funlove.rar</file> <br />
</DIR> <br />
</DIR> <br />
</ftp><br />
make_file_list.asp <br />
<<a href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT</a>" CODEPAGE="936"%> <br />
<% <br />
'######################################' <br />
'## Copyright (C) 2003 醉雨梧桐 All rights reserved. ##' <br />
'## Powered by 醉雨梧桐 ##' <br />
'## <a href="http://btyz.51web.cn/">http://btyz.51web.cn/</a> ##' <br />
'## <a href="mailto:winterfire@163.com">winterfire@163.com</a> ##' <br />
'######################################' <br />
Dim objFo,objF,objAF,objFxml <br />
set objFo=CreateObject("Scripting.FileSystemObject") '对象<br />
set objFxml=objFo.OpenTextFile("G:\My Documents\http\Personal Works\FTP_Search\ftp.xml",2) '打开文件<br />
objFxml.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>") <br />
objFxml.WriteLine("<ftp ip=""10.1.228.228"">") <br />
Call xml_list("F:\") '开始列表 <br />
objFxml.WriteLine("</ftp>") <br />
Response.Write("List is OK!) '列表成功 <br />
Function xml_list(DirName) <br />
set objFS=objFo.GetFolder(DirName) <br />
set objASD=objFS.SubFolders <br />
For Each OneDir in objASD <br />
strFdName=Trim(OneDir.Name) <br />
'下面所列的文件夹不生成在列表中（系统文件或者隐藏文件） <br />
If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then <br />
OneDirName=xml_format(OneDir.Name) '对&进行转义 <br />
objFxml.WriteLine("<DIR path="""&OneDirName&""">") '生成<DIR path="文件夹"></DIR> <br />
SDirName=DirName&"\"&OneDir.Name '下一个递归的地址 <br />
Call xml_list(SDirName) '调用递归 <br />
objFxml.WriteLine("</DIR>") <br />
End If '结束判断 <br />
Next <br />
set objSF=objFS.Files <br />
For Each OneFile in objSF '列出文件 <br />
objFxml.WriteLine("<file size="""&OneFile.size&""">"&OneFile.Name&"</file>") '生成<file>文件名</file> <br />
Next <br />
End Function<br />
'去掉XML不允许的字符 <br />
Function xml_format(strDirName) <br />
strDirName=Replace(strDirName,"&","&") '把半角的&转化为& <br />
xml_format=strDirName <br />
End Function <br />
%></p>