SubFolders 屬性
返回由指定資料夾中所有子資料夾(包括隱藏資料夾和系統資料夾)組成的 Folders 集合。
object.SubFolders
object 應為 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
写评论
很抱歉,必須登入網站才能發佈留言。