ASP获取目录下所有文件夹的方法

样式一：

<% 
Sub ListFolder(path)
Dim fs, folder, file, item

     Set fs = CreateObject("Scripting.FileSystemObject")
     Set folder = fs.GetFolder(path)

     'Display the target folder.
     Response.Write("<li>" & folder.Name)
     Response.Write("<ul>" & vbCrLf)

     If (folder.Files.Count > 0)OR(folder.SubFolders.Count >0) Then          
         
         'Display a list of sub folders.
         for each item in folder.SubFolders
           ListFolder(item.Path)
         next
         
         'Display a list of files.
         For each item in folder.Files
           Response.Write("<li>" & item.Name & "</li>" & vbCrLf)
         Next   
     End If

     Response.Write("</ul>" & vbCrLf)
     Response.Write("</li>" & vbCrLf)
End Sub

call ListFolder("upload")
%>

样式二：

<style type="text/css">
*{
	font-size:14px;
	line-height:18px;
}
table{
	border:1px solid #6CE26C;
	background-color:#F4F4F4;
}
.nacss{
	color:#F00;
}
</style>

<%
Sub ListFolder(path)
Dim fs, folder, file, item
str="../upload/"
'path="upload"
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set folder = fs.GetFolder(path)
     
     'Display the target folder.
     Response.Write("<table width=""600"" border=""0"" align=""center"" ><tr><td align=""left"" width=""60""><strong class=""nacss"">"& folder.Name& "</strong>")
     Response.Write("</td><td>" & vbCrLf)

     If (folder.Files.Count > 0)OR(folder.SubFolders.Count >0) Then          
         
         'Display a list of sub folders.
         for each item in folder.SubFolders
           ListFolder(item.Path)
         next
         
         'Display a list of files.
         For each item in folder.Files
           Response.Write("<a href="&str&""& folder.Name &"/" & item.Name & " target=""_blank"">" & item.Name & "</a><br/>" & vbCrLf)
         Next   
     End If

     Response.Write("</td></tr>" & vbCrLf)
     Response.Write("<tr><td></td></tr></table>" & vbCrLf)
End Sub

call ListFolder("C:\website\stupic\upload")
%>


 <%
Sub showFolderFileName(path)
    Dim fso
    Dim objFolder
    Dim objFiles
    Dim objFile
    Set fso = server.CreateObject("scripting.filesystemobject")
    Set objFolder = fso.GetFolder(path)
    Set objFiles = objFolder.SubFolders
    Response.Write "文件夹" & path & "包含的文件个数为："
    Response.Write objFiles.count & "个<br>"
    For Each objFile In objFiles
        Response.Write "---" & objFile.name & "<br>"
    Next
    Set objFile = Nothing
    Set objFiles = Nothing
    Set objFolder = Nothing
    Set fso = Nothing
End Sub
Call showFolderFileName("C:\website\stupic\upload")
 %>