遍历文件夹中的每一个文件,,CIO之家

本文件都是用自编函数完成!
main() 功能:新建一个FSO对象,并负责调用其他函数
GetFolderObj(FD_getfolder) 获取文件夹中的每一个子文件夹和文件,调用GetFileObj(FD_getfile),输出文件信息,递归调用GetFolderObj(FD_getfolder)获取子文件夹中的内容
GetFileObj(FD_getfile)获取每一个文件夹中的文件,并调用WriteFileMes(MyFileObj),输出文件信息
WriteFileMes(MyFileObj)输出文件信息
WritePath(FDObj)输出每一个文件夹的路径!

代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Sub GetFolderObj(FD_getfolder)
For each SFolder in FD_getfolder.subfolders
      call GetFileObj(SFolder)
      call GetFolderObj(SFolder)
Next
End Sub
Sub GetFileObj(FD_getfile)
WritePath(FD_getfile)
For each MF in FD_getfile.files
      call WriteFileMes(MF)
Next
End Sub
Sub WriteFileMes(MyFileObj)
%>

      <%=MyFileObj.name%>
      <%=MyFileObj.size%>
      <%=MyFileObj.DateCreated  %>
      <%=MyFileObj.DateLastAccessed%>
      <%=MyFileObj.DateLastModified%>
      <%=MyFileObj.Type%>

<%
End Sub
Sub WritePath(FDObj)
%>

      <%=FDObj.path%>下面的文件有:

<%
End Sub
Sub main()
Set fso =Server.CreateObject("Scripting.FileSystemObject")
Set PFD=fso.getfolder(server.MapPath("."))
Response.Write("