这是官方对SubFolders的介绍：

返回由指定文件夹中所有子文件夹（包含隐藏文件夹和系统文件夹）组成的Folders集合。

object.SubFolders

object应为Folder对象的名称。

说明
以下代码举例说明如何使用SubFolders属性：

FunctionShowFolderList(folderspec)
Dimfso,f,f1,s,sf
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(server.mappath(folderspec))
Setsf=f.SubFolders
ForEachf1insf
s=s&f1.name
s=s&"<BR>"
Next
ShowFolderList=s
EndFunction

　　引用时：response.writeShowFolderList("./")，可以显示站点根中所有文件夹的集合。