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

原创 2003年07月20日 13:14:00

本来生成这个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
%>

java递归获取文件列表和File的应用

/** 在函数内部,调用自身方法的形式称之为递归。 递归注意的事项: 1、递归的约束条件 2、递归的调用次数,防止内存溢出 */ import java.io.*; public cla...
  • u011521890
  • u011521890
  • 2015年10月06日 12:07
  • 1110

递归及如何用c#递归生成多层次XML文件

递归 递归做为一种算法在程序设计语言中广泛应用.是指函数/过程/子程序在运行过程中直接或间接调用自身而产生的重入现象.递归是计算机科学的一个重要概念,递归的方法是程序设计中有效的方法,采用递...
  • dupeng0811
  • dupeng0811
  • 2011年04月12日 19:46
  • 3200

根据递归定义的数据表循环生成xml

数据库有数据表tbDept: ID ParentID DeptName LevelID RoleID 1 0 软体研发处 0 0 2 1 软体研发一部 0 0 3 1 软体研发二部 0 0 ...
  • dalmeeme
  • dalmeeme
  • 2012年04月05日 16:00
  • 922

用递归法输出XML的节点value

老师要求把XML格式的文件里的节点信息提取出来,输出成CSV格式的文件。 由于一直不善用JAVA,因此原定用C++实现,但是网上搜了下,用C++操作XML的话,没有内置库,只能自己下载API,而比较流...
  • LinuxTiger
  • LinuxTiger
  • 2011年07月14日 01:33
  • 1406

用递归方式解析XML的任意文件

-------------------------------------------------------xml文件中的内容是-----------------------------------...
  • mexican_jacky
  • mexican_jacky
  • 2011年10月04日 14:19
  • 2829

java 解析xml 递归算法 简单实用

利用递归算法,解析xml格式的文件中的节点。
  • heliangb46
  • heliangb46
  • 2016年01月07日 20:58
  • 687

c# treeview 递归生成树

private void InitTree(TreeNodeCollection Nds, string pid, DataTable dt, string id, string name, stri...
  • love_rrr
  • love_rrr
  • 2009年10月19日 17:04
  • 2261

递归生成XML字符串

/*** 文件名:ZyBOToXML* 描述:* 项目名称:               * 版本:v1.0* 作者:姜春龙* 创建日期:20090316* 修改记录:(修改人)、(修改日期)、(修改...
  • jiangcl207504
  • jiangcl207504
  • 2009年10月26日 17:01
  • 396

caffe--生成文件列表

caffe--生成文件列表
  • ZWX2445205419
  • ZWX2445205419
  • 2017年06月21日 10:49
  • 349

python 用列表递归创建二叉树

先上代码 class node(): def __init__(self, k=None, l=None, r=None): self.val = k sel...
  • lznsay
  • lznsay
  • 2017年12月04日 15:38
  • 96
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:FSO+递归生成文件列表(xml)
举报原因:
原因补充:

(最多只允许输入30个字)