Folders 集合包含在一個(gè) Folder 對(duì)象中的所有 Folder 對(duì)象的集合。 說(shuō)明以下代碼舉例說(shuō)明如何獲得 Folders 集合并使用 For Each...Next 語(yǔ)句枚舉集合成員: Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso =CreateObject("Scripting.FileSystemObject")
Set f =fso.GetFolder(folderspec)
Set fc =f.SubFolders
For Each f1 in fc
s =s & f1.name
s =s & "<BR>"
Next
ShowFolderList =s
End Function
屬性Count 屬性 | Item 屬性 方法Add 方法 請(qǐng)參閱Drive 對(duì)象 | Drives 集合 | File 對(duì)象 | Files 集合 | Folder 對(duì)象 | SubFolders 屬性
返回首頁(yè)
|