28,389
社区成员
发帖
与我相关
我的任务
分享
<%
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
%>