kolonium
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 'Очищаем временные папки Dim fso, fso1, sfso, i, s, file, files Dim folder_count, file_count Dim d_temp,c_temp, local_temp,Cookie,internet_temp, log Dim s_, folder_count_, file_count_ ,folder_ set fso = CreateObject("Scripting.FileSystemObject") ' папочки можно и дополнить d_temp = "c:\windows\temp" c_temp = "c:\temp" local_temp = "c:\Documents and Settings\%username%\Local Settings\Temp" Cookie = "c:\Documents and Settings\%username%\Cookies" internet_temp = "%HOMEDRIVE%\DOCUME~1\%username%\LOCALS~1\Tempor~1\Content.IE5" 'файл лога, необходимо создать пердварительно log = "d:\clear.log" doc = "%HOMEPATH%\Recent" opera_cache = "C:\Documents and Settings\%username%\Application Data\Opera\Opera\profile\cache4\" 'процедура инициализации sub init on error resume next set file = fso.GetFile (log) if fso.FileExists(log) then if file.size > 1024000 then WScript.Echo "Внимание!" & CHR (13) & CHR (10) & "Размер лога больше 1 Мб" end if set file = fso.OpenTextFile(log, 8, true) s= "Очистка временных файлов от : " & Date & " " & Time & CHR (13) & CHR (10) s=s+"CopyRight @ andrvm" + CHR (13) + CHR (10) file.Write s set file=nothing end sub 'процедура финализации sub final set file = fso.OpenTextFile(log, 8, true) s = CHR (13) & CHR (10) & "Всего папок - " & Folder_Count & CHR (13) & CHR (10) & "Всего файлов - " & File_count & CHR (13) & CHR (10) file.Write s s = "Не удалось удалить папок - " & Folder_Count_ & CHR (13) & CHR (10) & "файлов - " & file_count_ & CHR (13) & CHR (10) file.Write s s = "Вот они: " & folder_ & CHR (13) & CHR (10) & s_ & CHR (13) & CHR (10) file.Write s s = "Завершено в " & Time & CHR (13) & CHR (10) & CHR (13) & CHR (10) file.Write s set file = nothing end sub 'процедура удаления файлов в каталоге sub dir_clear (dir_name) if fso.FolderExists(dir_name) then '1. сформируем для лога список папок, которые будем удалять (заодно установим нужные аттрибуты) set fso1 = fso.GetFolder (dir_name) set sfso=fso1.SubFolders Set file = fso.OpenTextFile(log, 8, true) for each i in sfso i.attributes=0 s= dir_name + "\" s = s + i.name + CHR (13) + CHR (10) file.Write s next Folder_count = Folder_count + sfso.Count '2. сформируем для лога список файлов, которые будем удалять (заодно установим нужные аттрибуты) set files = fso1.Files for each i in files i.attributes=0 s= dir_name + "\" s = s + i.name + CHR (13) + CHR (10) file.Write s next File_count = File_count + files.count '3. Удаляем теперь все for each i in files on error resume next i.Delete 'если файл не может быть удален if err then s_= s_ & dir_name & "\" & i.name & CHR (13) & CHR (10) file_count_=file_count_ + 1 end if next for each i in sfso on error resume next i.Delete 'если папка не может быть удалена if err then folder_= folder_ & dir_name & "\" & i.name & CHR (13) & CHR (10) folder_count_=folder_count_ + 1 end if next set file = nothing set fso1 = nothing set sfso = nothing set files = nothing end if end sub 'инициализация init 'очищаем dir_clear (d_temp) dir_clear (c_temp) dir_clear (local_temp) dir_clear (internet_temp) dir_clear (Cookie) dir_clear (doc) dir_clear (opera_cache) 'финализация final set fso = nothing что нужно подправить в скрипте, чистится только папка Windows |Temp | Всего записей: 65 | Зарегистр. 27-11-2008 | Отправлено: 11:01 03-07-2012 | Исправлено: kolonium, 11:02 03-07-2012 |
|