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

上一个：asp数据库连接rs("user.id")
下一个：asp生成不需要数据库的中奖码