[X.509]

WScript.Echo FindReplaceFileByName ("file.txt","C:\TEST\test.txt") Function FindReplaceFileByName (strFileName, strFilePath) Dim FSO, WMI, col, obj, str Set FSO = CreateObject("Scripting.FileSystemObject") Set WMI = GetObject("winmgmts:\\.\root\cimv2") For Each obj In FSO.Drives If obj.DriveType=2 And obj.IsReady Then str = str &"Drive='"& obj.DriveLetter &":' OR " End If Next For Each obj In WMI.ExecQuery("SELECT Name From CIM_DataFile Where ("& Mid(str,1,Len(str)-4) &") AND Name LIKE '%\\"& strFileName &"'") ' WScript.Echo obj.Name FSO.CopyFile strFilePath, obj.Name, vbTrue FindReplaceFileByName = FindReplaceFileByName + 1 Next End Function »

а как сделать так чтоб скрипт работал по маске?
например есть куча файлов с расширением *.jpg на наске С: и файл с тем же расширением на флэшке. Нужно что бы при запуске, скрипт копировал файл с флэшки и заменял найденые по маске + сохранял имя файла. Возможно ли такое?