|
- 帖子
- 2
- 积分
- 172
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2009-1-20
|
VBS如何保留当前日期30天数据备份
我在网上找到了一个备份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天的备份数据。
谢谢！！！为盼！！！ |
|
发表于 2009-1-20 14:51
|