如何取得文件夹里的所有下级子目录？请教！
<%
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目录下的所有文件显示出来，但不包括子文件夹。请问如何取得文件夹里的所有下级子目录呢？多谢指教！
问题点数：20、回复次数：3Top
1 楼zhongq99（木脑壳）回复于 2005-06-03 02:05:01 得分 2
给你一个站点，自己去看看吧，比直接告诉你还有效：
bestmoban.com/texiao/
Top
2 楼kendo7（）回复于 2005-06-03 08:44:27 得分 18
获取指定目录下的所有子文件夹
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 SubTop
3 楼wwx5240（本初子午－）回复于 2005-06-03 09:58:33 得分 0
好，多谢！
Top
相关问题
- 如何删除文件夹（文件夹包含文件和子目录）
- 如何遍历某一文件夹下的所有子目录
- 如何获取指定文件夹（包括该文件夹下的子目录）所包含的文件数目！
- 请问C#中怎么拷贝一个文件夹包括子目录?
- 如何将指定文件夹内的每个子目录名存入某个数组中？
- 在C++Builder中如何copy一个文件夹下的所有子目录和文件？
- 如何用TreeView控件显示本地机器上所有得文件夹（包括各级子目录）
- 请教如何比较两个文件夹下所有子目录里的文件是否一样？
- 如何在linux下用c/c++边编程实现文件夹下所有子目录文件的遍历?
- 为什么我的WINDOWS在删除一些很多子目录的文件夹时,会提示说"无法删除文件夹XX,该目录非空啊"
