SubFolders 屬性

返回由指定文件夾中所有子文件夾（包括隱藏文件夾和系統(tǒng)文件夾）組成的 Folders 集合。

object.SubFolders

object 應(yīng)為 Folder 對(duì)象的名稱。

說(shuō)明

以下代碼舉例說(shuō)明如何使用 SubFolders 屬性：

Function ShowFolderList(folderspec)   Dim fso, f, f1, s, sf   Set fso = CreateObject("Scripting.FileSystemObject")   Set f = fso.GetFolder(folderspec)   Set sf = f.SubFolders   For Each f1 in sf      s = s & f1.name       s = s & "<BR>"   Next   ShowFolderList = sEnd Function