【下载文档:  asp遍历目录及子目录的函数.txt 】

---

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 "
---" Response.write Objfile.name Next Response.write "

" Bianli(nowpath)'递归 Next Set Objfolder=nothing Set Objsubfolders=nothing Set Fso=nothing End Function %> <% Bianli("D:") '遍历d:盘 %>