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