网站服务器网站文件自动备份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盘

VBS备份源码

这个就没啥可说的了，代码很简单，利用的是WinRAR打包，自动以日期为文件名，自动删除大于6次以上的文件，节省服务器空间；

直接保存.vbs，然后控制面板里添加计划任务，可以每周备份一次，也可以每月备份一次，根据自己适当的调整即可！

问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！