欧美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 =sEnd Function

請參閱

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

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

返回首頁