FSO+遞歸生成文件列表(xml)

本來生成這個xml文檔是為了開發一個ftp的搜索,後來由於沒有資料參考怎麼搜索xml文檔,也就放棄了.其中最重要的是遞歸的算法.生成文件列表的速度很快.這個程序可以用於生成播放列表之類的東東.需要IIS的FSO組件支持.生成類似下面的XML文檔

<?xml version=1.0 encoding=gb2312?>

<ftp ip=10.1.228.228>

<DIR path=Game>

<DIR path=仙劍奇俠傳2（save）>

<file size=346294>complete_camel.rar</file>

<file size=1886286>complete_funlove.rar</file>

</DIR>

</DIR>

</ftp>

make_file_list.asp

<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>

<%

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

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

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

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

'## [email protected] ##'

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

Dim objFo,objF,objAF,objFxml

set objFo=CreateObject(Scripting.FileSystemObject) '對象

set objFxml=objFo.OpenTextFile(G:/My Documents/http/Personal Works/FTP_Search/ftp.xml,2) '打開文件

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

objFxml.WriteLine(<ftp ip=10.1.228.228>)

Call xml_list(F:/) '開始列表

objFxml.WriteLine(</ftp>)

Response.Write(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<>Config.Msi EQV strFdName<>RECYCLED EQV strFdName<>RECYCLER EQV strFdName<>System Volume Information Then

OneDirName=xml_format(OneDir.Name) '對&進行轉義

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

SDirName=DirName&/&OneDir.Name '下一個遞歸的地址

Call xml_list(SDirName) '調用遞歸

objFxml.WriteLine(</DIR>)

End If '結束判斷

Next

set objSF=objFS.Files

For Each OneFile in objSF '列出文件

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

Next

End Function

'去掉XML不允許的字符

Function xml_format(strDirName)

strDirName=Replace(strDirName,&,&) '把半角的&轉化為&

xml_format=strDirName

End Function