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