FSO对象遍历文件夹

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