Комфорт и автоматизация

Поиск файлов в папке

Находим файлы в определённой папке по заданной маске.

    Dim strDirPath, strMaskSearch, strFileName as String
    strDirPath = "C:/test/" 'Папка поиска
    strMaskSearch = "*.xls*" 'Маска поиска

    'Получаем первый файл соответствующий шаблону
    strFileName = Dir(strDirPath & strMaskSearch) 

    Do While strFileName <> "" 'До тех пор пока файлы "не закончатся"
        MsgBox strFileName 
        strFileName = Dir 'Следующий файл
    Loop

А вот здесь можно найти несколько макросов для проверки существования файлов или папок.

2 комментария: Поиск файлов в папке

  • valemak говорит:

    Елена, благодарю! Действительно я описал переменную strFileName, а использую в цикле FileName. Исправил. Не прошло и 2-х месяцев :).