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,"&","&amp;")  '把半角的&转化为&amp;
  xml_format=strDirName
End Function
%>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB中使用FSo(File System Object)对象可以很方便地搜索文件并进行相关操作。通过FSo对象,我们可以使用其属性和方法来搜索指定目录下的文件,也可以搜索文件夹下的子文件夹中的文件。 使用FSo搜索文件的步骤如下: 1. 创建FSo对象:可以通过下面的代码创建一个FSo对象: Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 2. 搜索文件:使用FSo的GetFolder方法指定文件夹路径,再使用其Files属性来获取该文件夹下的文件集合。可以通过下面的代码获取目录下的所有文件: Dim folder As Object Set folder = fso.GetFolder("C:\MyFiles") MsgBox folder.Files.Count 上述代码中,我们首先获取C:\MyFiles文件夹对应的FSo目录对象,然后获取该目录下的所有文件集合。最后,我们可以使用Count属性获取该文件夹中的文件数目。 3. 搜索子文件夹中的文件:如果想要搜索子文件夹中的文件,可以使用FSo的SubFolders属性来获取子文件夹集合,再递归查找每个子文件夹中的文件。下面的代码演示了如何搜索指定目录及其子目录中的所有文件Function SearchFiles(ByVal folder As Object) As Long Dim count As Long count = folder.Files.Count Dim subFolder As Object For Each subFolder In folder.SubFolders count = count + SearchFiles(subFolder) Next SearchFiles = count End Function 使用该函数,我们可以传入FSo目录对象,返回该目录及其子目录中的文件数。 总之,FSo提供了强大的搜索功能,可以满足VB中搜索文件的多种需求。可以灵活地使用FSo的属性和方法,实现快速、高效的文件搜索。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值