backup.bat裡
list.txt裡"C:\Program Files\WinRAR\WinRAR.exe" u -r -ibck -inul -m5 -agYYYYMMDD -ta20040403 F:\CloudStation\backup.rar @F:\CloudStation\list.txt ws.vbs
//執行RAR壓縮在list.txt裡的資料夾,壓縮名為當天日期把檔案放至f:\cloudStation\backup日期.rarF:\eVet5\
ws.vbs裡
Set fso = CreateObject("Scripting.filesystemobject")Set myfile = fso.getfolder("d:\CloudStation\").FilesOn Error Resume NextFor Each x In myfileIf Date - DateValue(Mid(x.Name, 6, 10)) < 7 ThenElsefso.DeleteFile "D:\CloudStation\" & x.Name, TrueEnd IfNext
利用判斷超過一星期的檔案就會刪除(還在修改中2015.9.23)