Microsoft® Visual Basic® Scripting Edition Files 集合 |
語(yǔ)言參考 版本 3
|
文件夾中所有 File 對(duì)象的集合。
以下代碼舉例說明如何獲得 Folders 集合并使用 For Each...Next 語(yǔ)句枚舉集合成員:Sub ShowFolderList(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & vbCrLf Next MsgBox s End Sub