技术资料 > ASP技术 > ASP技巧 : 遍历目录以及目录下文件的函数

March 25,2004

<%@ Language=VBScript %>
<%
  '我写的一个遍历目录以及目录下文件的函数，
%>
<%
function bianli(path)
      set fso=server.CreateObject("scripting.filesystemobject")

      on error resume next
      set objFolder=fso.GetFolder(path)

      set objSubFolders=objFolder.Subfolders

      for each objSubFolder in objSubFolders

         nowpath=path + "" + objSubFolder.name

         Response.Write nowpath

         set objFiles=objSubFolder.Files

         for each objFile in objFiles
            Response.Write "<br>---"
            Response.Write objFile.name
         next
         Response.Write "<p>"
         bianli(nowpath)'递归

      next
      set objFolder=nothing
      set objSubFolders=nothing
      set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>