FSO+递归生成文件列表(xml)


            本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要IIS的FSO组件支持.生成类似下面的XML文档

<?xml version=&quot;1.0&quot; encoding=&quot;gb2312&quot;?>

<ftp ip=&quot;10.1.228.228&quot;>

<DIR path=&quot;Game&quot;>

<DIR path=&quot;仙剑奇侠传2（save）&quot;>

<file size=&quot;346294&quot;>complete_camel.rar</file>

<file size=&quot;1886286&quot;>complete_funlove.rar</file>

</DIR>

</DIR>

</ftp>

make_file_list.asp

<%@LANGUAGE=&quot;VBSCRIPT&quot; CODEPAGE=&quot;936&quot;%>

<%

'######################################'

'## Copyright (C) 2003 醉雨梧桐 All rights reserved. ##'

'## Powered by 醉雨梧桐 ##'

'## http://btyz.51web.cn/ ##'

'## winterfire@163.com ##'

'######################################'

 Dim objFo,objF,objAF,objFxml

 set objFo=CreateObject(&quot;Scripting.FileSystemObject&quot;) '对象

 set objFxml=objFo.OpenTextFile(&quot;G:\My Documents\http\Personal Works\FTP_Search\ftp.xml&quot;,2) '打开文件

 objFxml.WriteLine(&quot;<?xml version=&quot;&quot;1.0&quot;&quot; encoding=&quot;&quot;gb2312&quot;&quot;?>&quot;)

 objFxml.WriteLine(&quot;<ftp ip=&quot;&quot;10.1.228.228&quot;&quot;>&quot;)

 Call xml_list(&quot;F:\&quot;) '开始列表

 objFxml.WriteLine(&quot;</ftp>&quot;)

 Response.Write(&quot;List is OK!) '列表成功



Function xml_list(DirName)

 set objFS=objFo.GetFolder(DirName)

 set objASD=objFS.SubFolders

 For Each OneDir in objASD

 strFdName=Trim(OneDir.Name)

 '下面所列的文件夹不生成在列表中（系统文件或者隐藏文件）

 If strFdName<>&quot;Config.Msi&quot; EQV strFdName<>&quot;RECYCLED&quot; EQV strFdName<>&quot;RECYCLER&quot; EQV strFdName<>&quot;System Volume Information&quot; Then 

 OneDirName=xml_format(OneDir.Name) '对&进行转义

 objFxml.WriteLine(&quot;<DIR path=&quot;&quot;&quot;&OneDirName&&quot;&quot;&quot;>&quot;) '生成<DIR path=&quot;文件夹&quot;></DIR>

 SDirName=DirName&&quot;\&quot;&OneDir.Name '下一个递归的地址

 Call xml_list(SDirName) '调用递归

 objFxml.WriteLine(&quot;</DIR>&quot;)

 End If '结束判断

 Next

 set objSF=objFS.Files

 For Each OneFile in objSF '列出文件

 objFxml.WriteLine(&quot;<file size=&quot;&quot;&quot;&OneFile.size&&quot;&quot;&quot;>&quot;&OneFile.Name&&quot;</file>&quot;) '生成<file>文件名</file>

 Next

End Function

'去掉XML不允许的字符

Function xml_format(strDirName)

 strDirName=Replace(strDirName,&quot;&&quot;,&quot;&amp;&quot;) '把半角的&转化为&amp;

 xml_format=strDirName

End Function

%>