[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務,掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!

以前自己服務器用的是Win系統(tǒng)的，原始服務器上有不少站點，因為有PHP，有.NET有APS，各類程序，迫不得已用了Win系統(tǒng)，長時間不備份怕出問題，有些現(xiàn)成的工具都太復雜了，所以自己寫了個，現(xiàn)在全部都是Linux系統(tǒng)了，今天無意看到了之前做的備份腳本，也順便自己在自己站點記錄一下！

網(wǎng)站服務器網(wǎng)站文件自動備份的Visual Basic代碼

Set fso=CreateObject("Scripting.FileSystemObject")??????' 獲得文件操作權(quán)限
Set fs=fso.getfolder("E:\bak").files??????' 設定備份文件的目錄
For Each f In fs??????' 遍歷文件
????????d=f.datelastmodified??????' 獲得最后修改日期
????????s= int(d)??????' 轉(zhuǎn)為整數(shù)
????????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")??????' 獲取腳本權(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盤

VBS備份源碼

這個就沒啥可說的了，代碼很簡單，利用的是WinRAR打包，自動以日期為文件名，自動刪除大于6次以上的文件，節(jié)省服務器空間；

直接保存.vbs，然后控制面板里添加計劃任務，可以每周備份一次，也可以每月備份一次，根據(jù)自己適當?shù)恼{(diào)整即可！

問題未解決？付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！