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

%>