Получить имена всех файлов, содержащихся в известной папке - VB
Формулировка задачи:
Как можно с помощью FileSystemObject получить имена всех файлов, содержащихся в конкретной папке.
Вот такой вопрос. А можно и не с помощью FileSystemObject.
Решение задачи: «Получить имена всех файлов, содержащихся в известной папке»
textual
Листинг программы
Function ShowFolderList(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 & ''
Next
ShowFolderList = s
End Function