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/ ##'

'## 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

%>