如何取得文件夹里的所有下级子目录？请教！

[wwx5240]

<%
the_fload="Admin"
Set fso= Server.CreateObject("Scripting.FileSystemObject")
Set folderpath = fso.GetFolder(server.mappath(the_fload))
For Each thing in folderpath.Files
Response.Write("<p>－－"&thing&"－－<br>")
Next
%>
这样可以把Admin目录下的所有文件显示出来，但不包括子文件夹。请问如何取得文件夹里的所有下级子目录呢？多谢指教！

[阿门]

给你一个站点，自己去看看吧，比直接告诉你还有效：
bestmoban.com/texiao/

[kendo7]

获取指定目录下的所有子文件夹
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & vbCrLf
Next
Response.Write s
End Sub

[wwx5240]

好，多谢！