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

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

%>
--------------------------------------

很不错哦。