<%@ 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 "
---"
　　　　　　　　 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:盘
%>