asp看遍目录及子目录的函数

asp看遍目录及子目录的函数：

<%@ 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:盘 

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!