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盘