完美世界辰东,兽性总裁的爱奴,君子以泽

本來生成這個(gè)xml文檔是為了開發(fā)一個(gè)ftp的搜索,后來由于沒有資料參考怎么搜索xml文檔,也就放棄了.其中最重要的是遞歸的算法.生成文件列表的速度很快.這個(gè)程序可以用于生成播放列表之類的東東.需要IIS的FSO組件支持.生成類似下面的XML文檔
?xml version="1.0" encoding="gb2312"?>
ftp ip="10.1.228.228">
DIR path="Game">
DIR path="仙劍奇?zhèn)b傳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") '對(duì)象

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)
'下面所列的文件夾不生成在列表中（系統(tǒng)文件或者隱藏文件）
If strFdName>"Config.Msi" EQV strFdName>"RECYCLED" EQV strFdName>"RECYCLER" EQV strFdName>"System Volume Information" Then
OneDirName=xml_format(OneDir.Name) '對(duì)進(jìn)行轉(zhuǎn)義
objFxml.WriteLine("DIR path="""OneDirName""">") '生成DIR path="文件夾">/DIR>
SDirName=DirName"\&;OneDir.Name '下一個(gè)遞歸的地址
Call xml_list(SDirName) '調(diào)用遞歸
objFxml.WriteLine("/DIR>")
End If '結(jié)束判斷
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,"","") '把半角的轉(zhuǎn)化為
xml_format=strDirName
End Function
%>

標(biāo)簽：楚雄清遠(yuǎn) 上海赤峰涼山通遼南京邢臺(tái)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《FSO+遞歸生成文件列表(xml)》，本文關(guān)鍵詞 FSO+,遞歸,生成,文件,列表,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

濮阳杆衣贸易有限公司

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