Dim fso, cache, dest, f, fl, fc

Set fso = CreateObject("Scripting.FileSystemObject")



cache="D:\Opera\profile\cache4\"     ' Папка с исходным кэшем

dest="D:\tempfolder\"      ' Папка куда складывать картинки



WScript.CreateObject("WScript.Shell").Run "D:\Opera\Opera.exe" ' Запускаем Opera

Set f = fso.GetFolder(cache)

Set fc = f.Files



Do

For Each fl in fc



If (InStr(fl.name, ".jpg") > 0 or InStr(fl.name, ".jpeg") > 0) And fl.size > 30000 Then 'Тут видно что расширения jpg и jpeg



If Not fso.FileExists(dest & fl.name) Then fl.Copy dest & fl.name,true 'Скопировать если нет файла

If fso.FileExists(dest & fl.name) And fso.GetFile(dest & fl.name).size <> fl.size Then fl.Copy dest & fl.name,true 'Если другой размер



End if

Next



WScript.Sleep 10*60*1000 'Спим 10 минут

Loop

Операции над сообщением: