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

%>

--------------------------------------

很不错哦。