ASP如何遍历目录及目录下的文件？

答案：程序代码 

<%@ 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("f:")  
’ 遍历F盘 
%>  

上一个：在ASP中取得服务器网卡的MAC地址、DNS地址等信息
下一个：ASP len(),lift(),right()不能正常识别中文的解决