<p>ASP，FSO遍历目录及目录下文件</p>
<p><%@ Language=VBScript %><br />
<%<br />
'我写的一个遍历目录以及目录下文件的函数，<br />
%><br />
<%<br />
function bianli(path)<br />
set fso=server.CreateObject("scripting.filesystemobject") </p>
<p> on error resume next<br />
set objFolder=fso.GetFolder(path)<br />
<br />
set objSubFolders=objFolder.Subfolders<br />
<br />
for each objSubFolder in objSubFolders <br />
<br />
nowpath=path + "\" + objSubFolder.name<br />
<br />
Response.Write nowpath</p>
<p> set objFiles=objSubFolder.Files</p>
<p> for each objFile in objFiles<br />
Response.Write "<br>---"<br />
Response.Write objFile.name<br />
next<br />
Response.Write "<p>"<br />
bianli(nowpath)'递归<br />
<br />
next <br />
set objFolder=nothing<br />
set objSubFolders=nothing<br />
set fso=nothing<br />
end function<br />
%><br />
<%<br />
bianli("d:") '遍历d:盘<br />
%> <br />
</p>