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

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

　　%>