VBS/WSH/JS

megaloman · Отправлено: **12:43, 08-10-2010** | #2

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 · Отправлено: **10:02, 13-10-2010** | #3

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

megaloman · Отправлено: **12:25, 13-10-2010** | #4

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