VSS的每日自动备份并删除前30天的备份

本文介绍了一个使用Microsoft Visual SourceSafe (VSS) 进行数据库备份的批处理脚本及一个用于清理30天前备份文件的VBScript脚本。批处理脚本通过设置必要的参数来调用ssarc命令进行备份,并将备份文件存储在指定路径下。VBScript脚本则按日期筛选并删除超过保存期限的备份文件。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

project.bat
====================
@ECHO OFF
@TITLE Backing up source safe databases
SET VSS_Backing_Command="C:/Program Files/Microsoft Visual SourceSafe/ssarc.exe"
SET VSS_DB="E:/Vssdb"
SET VSS_Admin_Name="admin"
SET VSS_Admin_Password="19830918"
FOR /F "tokens=1-3 delims=- " %%i IN ('date /t') DO SET dateFileName=%%i%%j%%k
SET Bak_File="E:/back/Vssdb/bak/%dateFileName%_backup.ssa"
%VSS_Backing_Command% -d- -s%VSS_DB% -y%VSS_Admin_Name%,%VSS_Admin_Password% %Bak_File% $/
@ECHO Finished backups
projectname_delbackup.vbs
==============
'30天前的自动del
Dim fso, MyFile,thedate,thepath,thefilename,i
Dim fileExt,saveDateNum
thepath="E:/back/Vssdb/bak/"
fileExt="_backup.ssa"
saveDateNum=-30
Set fso = CreateObject("Scripting.FileSystemObject")
for i=-10 to -1
 thedate=dateadd("d",saveDateNum+i,now)
 thedate=cstr(year(thedate))&right("00" & cstr(month(thedate)),2)&right("00" & cstr(day(thedate)),2)
 thefilename=thepath+thedate+fileExt
 on error resume next
 Set MyFile = fso.GetFile(thefilename)
 MyFile.Delete
 Set MyFile = nothing
 on error goto 0
next
Set fso = nothing
配置
============================
开始——程序——附件——系统工具——任务计划——添加任务计划
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值