[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