遍历目录以及目录下文件的函数

<%@ 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 "<p>"

　　　　　　bianli(nowpath)'递归

　　　　　　

　　　　next

　　　　set objFolder=nothing

　　　　set objSubFolders=nothing

　　　　set fso=nothing

　　end function

%>

<%

　　bianli("d:") '遍历d:盘

%>