Перебор файлов по шаблону

[MYF]

Перед началом работы надо скопировать несколько файлов (по списку) из сетевой папки A в локальную B. Список на каждом компе разный, потому хранится в отдельном текстовом файле. Но это всё ерунда.
Споткнулся на том, что в списке может попасться строка типа "\\Server\A\user??file*.doc". Надо как-то перебирать эти файлы по одному, проверять их дату, размер и копировать только обновлённые или отсутствующие.
Давным-давно делал нечто подобное на Pascal-е. Всё решалось 5-6 строками, а тут... ни как не найду функции для перебора файлов.

[alibek]

Dir

[Viper]

Точнее даже

Код: Выделить всё

sFileName = Dir$("\\Server\A\user??file*.doc")

для получения имени первого файла и

Код: Выделить всё

Dir$

для последующих файлов.

Поробности в MSDN.

[MYF]

Спасибо, Viper. Сам я как-то не догадался
Получился список имён файлов без пути. Путь надо самому из исходной строки высчитывать? Или есть стандартная функция для его выделения?

[Pavel55]

А разве вы не знаете путь к папке ?

Код: Выделить всё

Sub Макрос1()
    Dim iPath$, iFileName$

    iPath = "\\Server\A\"
    iFileName = Dir("\\Server\A\user??file*.doc")

    Do While iFileName <> ""
        'тут что-то делаете с каждым файлом,
        '............................
       
        iFileName = Dir 'передача названия другого файла
    Loop

End Sub

[Viper]

По идее путь тебе известен изначально