1. <%@ Language=VBScript%>  
2. <%function bianli(path)  
3. set fso=server.CreateObject("scripting.filesystemobject")  
4.  
5. on error resume next  
6. set objFolder=fso.GetFolder(path)  
7.  
8. set objSubFolders=objFolder.Subfolders  
9.  
10. for each objSubFolder in objSubFolders  
11.  
12. nowpath=path + "\" + objSubFolder.name  
13.  
14. Response.Write nowpath  
15.  
16. set objFiles=objSubFolder.Files  
17.  
18. for each objFile in objFiles  
19. Response.Write "<br>---"  
20. Response.Write objFile.name  
21. next  
22. Response.Write "<p>"  
23. bianli(nowpath)'遞歸  
24.  
25. next  
26. set objFolder=nothing  
27. set objSubFolders=nothing  
28. set fso=nothing  
29. end function  
30. %>  
31. <%  
32. bianli("d:") '遍歷d:盤  
33. %>