因工作上的專案產log檔太快了
因此用vbs來寫個定期清理和壓縮上個月log檔
會使用到7zip
之後新增OOO.vbs
log檔格式為*YYYY-MM*
備份到logbackup\LogBackupYYYY-MM.zip
可自行修改
code語法如下
logpath = "log檔的路徑"
logfiles = logpath & "\" & "*" & year(DateAdd("m", -1,date)) & "-" & right("0" & month(DateAdd("m", -1,date)),2) & "*"
zippath = logpath & "\" & "logbackup\" & "logBackup" & year(DateAdd("m", -1,date)) & "-" & right("0" & month(DateAdd("m", -1,date)),2) & ".zip"
command = """C:\Program Files\7-Zip\7z.exe"" a" & " " & zippath & " " & logfiles
Set WshShell = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
WshShell.Run command,1,true
fs.DeleteFile(logfiles)
之後使用工作排程器來排程即可
創作內容
使用vbs來定期備份刪除log檔
學習筆記 (11)
