1. Зачем за ним следить? Поставь ограничение на размер кэша, если оно тебе надо. Для просмотра, есть например это
2. Он раз в 10 минут копирует все jpg-и из кэша в папку. Надо бы добавить проверку на одинаковость..
Добавил
Code:
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
Какой же vbs корявый.
Операции над сообщением: