1только теперь нужно что бы искал в подпапках.См. объект Folder и его свойство .SubFolders.
Далее, по аналогии, коллекция .Files и её члены - объекты File.
Всё это есть в Scripting Run-Time Reference. Напр.:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
The following code illustrates the use of the Files property:
Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFileList = s
End Function
