project.bat
====================
@ECHO OFF
@TITLE Backing up source safe databases
@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"
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"
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
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
配置
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
配置
============================
开始——程序——附件——系统工具——任务计划——添加任务计划
开始——程序——附件——系统工具——任务计划——添加任务计划