簡(jiǎn)單的服務(wù)器文件備份辦法壓縮文件名自動(dòng)按日期命名
dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR"
MyCommand="rar a "+FileName+" 要壓縮的文件名或目錄名"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.fileExists(FileName) then
fs.DeleteFile FileName,true
end
if WshShell.run MyCommand
將以上文件另存為一個(gè) .VBS添加計(jì)劃任務(wù)按你說需要的時(shí)間運(yùn)行.vbs 如每個(gè)禮拜一次 
或每個(gè)月一次等計(jì)劃任務(wù)會(huì)自動(dòng)壓縮你指定的目錄.生成一個(gè)日期文件名.rar