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