VBS如何保留当前日期30天数据备份

dhy5356

我在网上找到了一个备份Oracle的东东，但是每天备份的话磁盘空间很快就占满了，客户要求要保存近30天的记录就可以了，以前没有做过这个，所以请教各位大侠帮忙看看，谢谢！！
   我的具体操作是这样的，在磁盘根目录下建立了一个OracleBack的文件夹，其中有backup、dbrar、script三个文件夹，其中backup中放置备份好的.dmp和.log文件；dbrar放置压缩后的文件，压缩完成后删除backup中的文件（所有的数据备份都在这个文件夹中）；script中放置了exp.txt和OracleBack.vbs两个文件，利用Windows的计划任务实现每天定时的自动备份；
其中exp.txt的内容是：userid=system/manager@eerp full=y      

OracleBack.vbs的内容是：
Option Explicit

On Error Resume Next


Dim fname, cmd
Dim WshShell

Set WshShell = CreateObject("WScript.Shell")
fname = FormatDateTime(Now(),2)
fname = fname+"-"+FormatDateTime(Now(),4)
fname = Replace(fname,":","-")
cmd = "exp log=../backup/DBBak_" & fname & ".log file=../backup/DBBak_" & fname & ".dmp parfile=exp.txt"
WshShell.run cmd
WScript.Sleep 300000
cmd = """C:\Program Files\WinRAR\rar"" m -ag ..\dbrar\DBBak.RAR ..\backup\*.*"
WshShell.run cmd


Set WshShell = Nothing

'WScript.Echo cmd

我想要实现的目的就是能否在原有的基础上实现保留dbrar中当前日期前30天的备份数据。
谢谢！！！为盼！！！

dhy5356

是保留系统当前日期前30天备份。