簡單的服務器文件備份辦法壓縮文件名自動按日期命名 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 將以上文件另存為一個 .VBS添加計劃任務按你說需要的時間運行.vbs 如每個禮拜一次 或每個月一次等計劃任務會自動壓縮你指定的目錄.生成一個日期文件名.rar
