Folders

Folders是集合，描述包含在一個 Folder 對象內的所有 Folder 對象的集合。

，以及如何用 For Each...Next 語句來訪問該集合中的每個Folder：

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

MsgBox s

End Sub