Удаление лог файлов
|
Удаление лог файлов |
|
Скрипт производит удаление лог файлов из подпапок директории Log.
Перед началом использования скрипта, в его тексте необходимо прописать путь к папке Log (см. комментарии в тексте скрипта). Для этого открываем файл DelLog.vbs в любом текстовом редакторе.
Скрипт запускается из командной строки в каталоге scripts.
cscript.exe DelLog.vbs DaysAmount
DaysAmount - количество дней, считая от текущей даты, за которое лог файлы не будут удалены.
Например, при запуске скрипта с параметрами:
cscript.exe DelLog.vbs 90
будут оставлены логи, созданные за последние 90 дней. Если за текущую дату принять 30.07.2004, то будут удалены все лог файлы, дата последней модификации которых меньше 01.05.2004. Если у лог файла установить атрибут "Только для чтения", то он не будет удален.
'Задайте путь к директории Log:
LogDirPath = "C:\Program Files\TrafInsp\Log\"
Set Args = WScript.Arguments.Unnamed
If Args.Count <> 1 Then
WScript.Echo "??? usage: cscript.exe DelLog.vbs DaysAmount"
WScript.Quit
End If
DayAm = CInt(Args(0))
Set fso = CreateObject("Scripting.FileSystemObject")
Set LogDir = fso.GetFolder(LogDirPath)
Set LogFolders = LogDir.SubFolders
For Each LFolder In LogFolders
WScript.Echo LFolder.Name
Set LogFiles = LFolder.Files
For Each LFile In LogFiles
If (LFile.DateLastModified < DateAdd("d",-DayAm,Date)) And (Right(LFile.Name,3) = "log") Then
FileRO = LFile.attributes And 1
If FileRO = 0 Then
WScript.Echo " Удаляется файл " & LFile.Name & " " & DateValue(LFile.DateLastModified) & "..."
LFile.Delete
Else
WScript.Echo " Невозможно удалить файл " & LFile.Name & " " & DateValue(LFile.DateLastModified) & " - только для чтения!"
End If
End If
Next
Next
WScript.Echo "Удалены все логи до " & DateAdd("d",-DayAm,Date) & "."
Текущая страница справки: help.smart-soft.ru/index.html?apidemodellog.htm