Проверка существования файла - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Проверка существования файла (http://forum.oszone.net/showthread.php?t=187741)

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

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

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

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

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