Files集合描述在一個文件夾內的所有File對象的集合。
說明下面的代碼舉例說明了如何獲得一個Files集合,以及如何用For Each...Next語句來訪問這個集合中的每個File:
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