Проверка наличия файла в папке по имени

[strannick]

Добрый день, уважаемые форумчане!
Вот этим кодом:
Sub VerifyFileLocation()
Dim strFileName As String
Dim strFileTitle As String
strFileTitle = "1.xlsx"
strFileName = "D:\Макрос\1.xlsx"
If Dir(strFileName) <> "" Then
MsgBox "Файл " & strFileTitle & " найден"
Else
MsgBox "Файл " & strFileTitle & " не найден"
End If
End Sub

проверяю наличие конкретного файла в конкретной папке. Как прописать проверку не одного, а нескольких файлов (с конкретными именами) в этой же папке? Или просто по очереди проверять?
Ну это-то ладно, а вот если файл содержит в начале имени вчерашнюю дату, например "2012-07-06 1.xlsx". Как это можно учесть в макросе проверки?

Заранее спасибо!

[Казанский]

> Как прописать проверку не одного, а нескольких файлов (с конкретными именами) в этой же папке? Или просто по очереди проверять?
Да, по очереди.

> если файл содержит в начале имени вчерашнюю дату, например "2012-07-06 1.xlsx"
Ищите файлы по маске "* 1.xlsx" или "d:\????-??-?? 1.xlsx" (более строго).

[strannick]

Сообщение от Казанский

> Как прописать проверку не одного, а нескольких файлов (с конкретными именами) в этой же папке? Или просто по очереди проверять?
Да, по очереди.

Понял, спасибо.

> если файл содержит в начале имени вчерашнюю дату, например "2012-07-06 1.xlsx"
Ищите файлы по маске "* 1.xlsx" или "d:\????-??-?? 1.xlsx" (более строго).

По маске, в принципе подойдет, потому что имена заранее известны + впереди вчерашняя дата. А все-таки, как-то задать нельзя ли типа СЕГОДНЯ()-1?

[IgorGO]

а вот так и задайте:
format(date()-1,"YYYY-MM-DD")

[strannick]

То есть, строка кода для задания имени для поиска должна быть?

strFileName = "D:\Макрос\format(date()-1,"YYYY-MM-DD") 1.xlsx"

Я чего так уточняю: мне после проверки файлов на наличие необходимо будет из них же вытягивать данные в искомый файл.

[IgorGO]

а самостоятельно слабо написать:
msgbox "D:\Макрос\format(date()-1,"YYYY-MM-DD") 1.xlsx"
и посмотреть что получилось
Вы уверены, что Вам надо все это макрописание?

пробуйте так:
strFileName = "D:\Макрос\" & format(date()-1,"YYYY-MM-DD") & " 1.xlsx"

[strannick]

Конечно же, написал так сразу:

strFileName = "D:\Макрос\" & Format(Date - 1, "YYYY-MM-DD") & " 1.xls"

Но так находит файл не со вчерашней датой, а с любой в имени плюс пробел1.xls

Виноват, все исправил, находит.