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

最新推荐文章于 2015-11-18 23:07:59 发布

原创最新推荐文章于 2015-11-18 23:07:59 发布 · 1.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vss #command #任务 #file #date #工具

本文介绍了一个使用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
配置

============================
开始——程序——附件——系统工具——任务计划——添加任务计划