Проверка существования файла

[admin-nsk]

Здравствуйте.
В общем ситуация такая, нужно перед копирование проверить существование файла. Нюанс в том что известна только часть имени файла. шаблон BPK81_backup_2010_10_08_???????.bak
Как можно это реализовать в vbs?

[megaloman]

vbs
' Проверка существования файлов в директории по маске

' Исходные данные ------------------------------------------------
iDir = "I:\Всякая дребедень" ' Директория где смотрим
Maska = "^BPK81_backup_2010_10_08_.......\.bak$" ' Маска файлов

' ------------------------------------------------------------------

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(iDir).Files

Set Re = New RegExp
Re.Pattern = Maska
Re.IgnoreCase = True

For Each File In Files
If Re.Test(File.Name) Then MsgBox File.Name ' Если файл по маске найден, выдаём сообщение
Next
' Копировать файлы по маске

' Исходные данные ------------------------------------------------
iDir = "I:\Всякая дребедень" ' Директория где смотрим
oDir = "I:\Delete" ' Директория куда копируем
Maska = "BPK81_backup_2010_10_08_???????.bak" ' Шаблон файлов

' ------------------------------------------------------------------

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFile iDir + "\" + Maska, oDir, True

[admin-nsk]

Не работатет, ошибки не выдает но и файл не видит.

[megaloman]

Проверено, работает, а если ничего не выдаёт, значит файлы с именами, соответствующими маске, не существуют(м б Вы неправильно описали маску в регулярном выражении). Я правильно понял, что в вашей маске ??????? обозначают 7 символов? Попробуйте вместо
If Re.Test(File.Name) Then MsgBox File.Name
поставить
MsgBox File.Name
и убедитесь, что скрипт просматривает все файлы в указанной папке.
Прикрепляю файл, в котором приведена смесь файлов, среди которых есть соответствующие маске. Там же и текст скрипта