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


            <%@ Language=VBScript%>

<%function bianli(path)

set fso=server.CreateObject(&quot;scripting.filesystemobject&quot;) 

on error resume next

set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders 

nowpath=path + &quot;\&quot; + objSubFolder.name

Response.Write nowpath

set objFiles=objSubFolder.Files

for each objFile in objFiles

Response.Write &quot;<br>---&quot;

Response.Write objFile.name

next

Response.Write &quot;<p>&quot;

bianli(nowpath)'递归

next 

set objFolder=nothing

set objSubFolders=nothing

set fso=nothing

end function

%>

<%

bianli(&quot;d:&quot;) '遍历d:盘

%>

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

很不错哦。