Перебор файлов в каталоге

Задача: получить список всех файлов в определенном каталоге

Способ решения:




Sub ПереборФайлов()

Dim Path As String ' путь к папке с файлами
Dim FileName As String ' имя файла

Path = "C:\XlsFiles\" ' указываю путь к файлам

FileName = Dir(Path & "*.xls") ' определяю имя первого xls файла в каталоге

Do Until FileName = "" ' перебираю xls файлы в каталоге
Debug.Print FileName ' вывожу имя файла
FileName = Dir ' определяю имя следующего файла
Loop

End Sub

Примечание: вместо строки “Debug.Print FileName ' вывожу имя файла” можно (и нужно) использовать код для обработки каждого перебираемого файла.