asp 遍历文件夹

 http://www.cnblogs.com/cloudgamer/archive/2008/06/18/1219299.html

1. '遍历文件夹
2. sub ListFolderContents(path)
3.     dim fs, folder, file, item, url
4.     set fs = CreateObject("Scripting.FileSystemObject")
5.     set folder = fs.GetFolder(path)
6.     
7.     Response.Write("<li><b>" & folder.Name & "</b> - " & folder.Files.Count & " files, " & folder.SubFolders.Count & " directories." & vbCrLf & "<ul>" & vbCrLf)
8.     
9.     
10.     for each item in folder.SubFolders
11.         ListFolderContents(item.Path)
12.     next
13.     
14.     for each item in folder.Files
15.         Response.Write("<li><a href=""" & MapURL(item.path) & """ target='_blank'>" & item.Name & "</a> - " & item.path & "</li>" & vbCrLf)
16.     next
17.     
18.     Response.Write("</ul>" & vbCrLf)
19.     
20.     Response.Write("</li>" & vbCrLf)
22. end sub
24. function MapURL(path)
25.     MapURL = Replace(Right(path, Len(path) - Len(Server.MapPath("/"))), "/", "/")
26. end function
28. ListFolderContents("D:/web/")