fso遍历某一目录下所有文件的函数

<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject") </P><P>on error resume next
set objFolder=fso.GetFolder(path)</P><P>set objSubFolders=objFolder.Subfolders</P><P>for each objSubFolder in objSubFolders </P><P>nowpath=path + "/" + objSubFolder.name</P><P>Response.Write nowpath</P><P>set objFiles=objSubFolder.Files</P><P>for each objFile in objFiles
Response.Write "<br/>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归</P><P>next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>