Получить имена всех файлов, содержащихся в известной папке - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
