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

原文：

在繁华的都市中，有一个被忽视的小角落，隐藏着一个古老的故事。那里有一栋已经历经百年风雨的老建筑，静静地矗立在晨雾中，似乎在诉说着自己的往昔。每一次踏足这里，都能感受到一种别样的韵味，那是岁月留下的痕迹，也是历史赋予的韵味。

这座建筑曾经是重要的商业场所，见证了这座城市的兴衰变迁。如今，虽然它的地位已经被新的高楼大厦所取代，但它依然保留着那份独特的魅力。走进这座建筑，仿佛穿越到了过去，那些繁华的街道、喧嚣的市场、热闹的商铺都历历在目。虽然这里已经没有了昔日的繁华，但它依然承载着那个时代人们的记忆和故事。

这座老建筑虽然被现代都市所包围，但它的存在仿佛是一道独特的风景线。它的存在让人们意识到历史的厚重和文化的底蕴。它的存在让人们明白，历史与现代是可以和谐共存的。这座建筑虽然已经不再承担商业功能，但它的历史价值和文化意义依然重要。它是一座城市的记忆，也是一个时代的见证。它的存在是对历史的尊重，也是对文化的传承。这座建筑让我们明白，即使时光荏苒，岁月如梭，但历史的痕迹是永远不会消失的。

在喧嚣的都市中，有一座被遗忘的角落藏着一段古老的传说。那里有一座历经百年沧桑的古建筑，宛如一位历史的叙述者，在晨雾中静静诉说着往昔的故事。每次踏入这片土地，都能感受到一种独特的韵味，那是岁月留下的印记，也是历史赋予的魅力。

这座古建筑曾是商业繁华的中心，见证了这座城市的兴衰荣辱。如今虽被摩天大楼所环绕，但依旧保持着独特的韵味。步入其中，仿佛穿越时光的隧道，回到了那个繁华的时代。喧嚣的街道、繁忙的市场、熙熙攘攘的商铺都仿佛触手可及。尽管失去了昔日的繁华，但它依旧承载着那个时代的记忆和故事。

曾经，我们设想通过生成一个ftp搜索功能的xml文档，以实现对网络资源的便捷检索。由于缺乏关于如何搜索xml文档的参考资料，我们不得不暂时搁置了这个项目。尽管遇到了挫折，但我们始终铭记其中最为关键的部分——递归算法的重要性。实际上，生成文件列表的速度是惊人的。这个程序的潜力远不止于此，它还可以用于生成播放列表等实用功能。这一切都离不开IIS的FSO组件的支持。

让我们来生成一个类似于狼蚁网站SEO优化的XML文档。这个文档以gb2312编码格式呈现，内容如下：

接下来，我们来看一段VBSCRIPT代码，这段代码用于生成上述XML文件：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

'版权信息

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("")

objFxml.WriteLine("")

Call xml_list("F:\") '开始生成文件列表

objFxml.WriteLine("")

Response.Write("文件列表生成成功！")

Function xml_list(DirName)

'遍历指定目录并生成XML格式的文件列表

set objFS=objFo.GetFolder(DirName)

For Each OneDir in objFS.SubFolders

If OneDir.Name <> "Config.Msi" And OneDir.Name <> "RECYCLED" And OneDir.Name <> "RECYCLER" And OneDir.Name <> "System Volume Information" Then

OneDirName = xml_format(OneDir.Name) '对特殊字符进行转义处理

objFxml.WriteLine("

End If

Next

For Each OneFile in objFS.Files '列出文件

objFxml.WriteLine("" & OneFile.Name & "") '生成文件节点

Next

End Function

Function xml_format(strDirName)

'处理XML不允许的字符，如将半角的&转化为&

strDirName=Replace(strDirName,"&","&")

xml_format=strDirName

End Function

%>