網站服務器網站文件自動備份VBS代碼“也可實現為ERP服務器sql備份”
[重要通告]如您遇疑難雜癥,本站支持知識付費業務,掃右邊二維碼加博主微信,可節省您寶貴時間哦!
以前自己服務器用的是Win系統的,原始服務器上有不少站點,因為有PHP,有.NET有APS,各類程序,迫不得已用了Win系統,長時間不備份怕出問題,有些現成的工具都太復雜了,所以自己寫了個,現在全部都是Linux系統了,今天無意看到了之前做的備份腳本,也順便自己在自己站點記錄一下!
網站服務器網站文件自動備份的Visual Basic代碼
Set fso=CreateObject("Scripting.FileSystemObject")??????' 獲得文件操作權限 Set fs=fso.getfolder("E:\bak").files??????' 設定備份文件的目錄 For Each f In fs??????' 遍歷文件 ????????d=f.datelastmodified??????' 獲得最后修改日期 ????????s= int(d)??????' 轉為整數 ????????x= Datediff("m",Date,d)??????' 計算最后修改時間與當前時間差距 ????????'msgbox f & " - " & d & " - " & x ????????If x > 6 Then??????' 如果文件備份的時間超過6個月 ????????????????fso.deleteFile f??????' 刪除超期的文件 ????????End If next set ws=CreateObject("WScript.Shell")??????' 獲取腳本權限 ws.currentdirectory = "C:\Program Files\WinRAR\"??????' 定位程序執行目錄 ws.run "WinRAR.exe a -ag -k -r -s -ibck E:/bak.rar E:/wwwroot/",0??????' 執行備份代碼,文件以日期和時間為文件名備份到E盤
這個就沒啥可說的了,代碼很簡單,利用的是WinRAR打包,自動以日期為文件名,自動刪除大于6次以上的文件,節省服務器空間;
直接保存.vbs,然后控制面板里添加計劃任務,可以每周備份一次,也可以每月備份一次,根據自己適當的調整即可!
問題未解決?付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信
所寫所說,是心之所感,思之所悟,行之所得;文當無敷衍,落筆求簡潔。 以所舍,求所獲;有所依,方所成!
賞
支付寶贊助
微信贊助
免責聲明,若由于商用引起版權糾紛,一切責任均由使用者承擔。
您必須遵守我們的協議,如您下載該資源,行為將被視為對《免責聲明》全部內容的認可->聯系老梁投訴資源 LaoLiang.Net部分資源來自互聯網收集,僅供用于學習和交流,請勿用于商業用途。如有侵權、不妥之處,請聯系站長并出示版權證明以便刪除。
敬請諒解! 侵權刪帖/違法舉報/投稿等事物聯系郵箱:service@laoliang.net
意在交流學習,歡迎贊賞評論,如有謬誤,請聯系指正;轉載請注明出處: » 網站服務器網站文件自動備份VBS代碼“也可實現為ERP服務器sql備份”