<%@ Language=vbscript %> 
<% 
'遍歷目錄以及目錄下文件的函數(shù) 
%> 
<% 
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("D:") '遍歷d:盤 
%>