欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

請(qǐng)參閱                   屬性                   方法

描述

包含在一個(gè) Folder 對(duì)象中的所有 Folder 對(duì)象的集合。

說明

以下代碼舉例說明如何獲得 Folders 集合并使用 For Each...Next 語句枚舉集合成員：

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