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

請(qǐng)參閱                   應(yīng)用于

描述

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

語(yǔ)法

object.SubFolders

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

說(shuō)明

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

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 in sf
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub