Lex1
17/07/2007 11:25
Re: рисунку и кеш

В ответ на:
заставить его удолять
и огрести кучу глюков от рассинхронизации dcache4.url с физическим кэшем.

В ответ на:
чтобы он запускался вместе с ней и типа следил

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 Then 'Тут видно что расширения jpg и jpeg

If fl.size > 30000 Then fl.Copy dest & fl.name,true 'Скопировать файл с заменой

End if
Next

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






  
Отправить email администрации MyOpera.net - Home

© 2000-2002. Николай Ковальчук - All rights reserved
Rambler's Top100