FSO+遞歸生成文件列表(xml)
2024-05-04 11:02:34
供稿：網友
本來生成這個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/ ##'
'## winterfire@163.com ##'
'######################################'
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
