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

SubFolders 屬性

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

object.SubFolders

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

說明

以下代碼舉例說明如何使用 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 = s
End Function

請參閱

Attributes 屬性 | DateCreated 屬性 | DateLastAccessed 屬性 | DateLastModified 屬性 | Drive 屬性 | Files 屬性 | IsRootFolder 屬性 | Name 屬性 | ParentFolder 屬性 | Path 屬性 | ShortName 屬性 | ShortPath 屬性 | Size 屬性 | Type 屬性

應(yīng)用于：Folder 對象