Activity overview
Latest activity by spc_kevin
Thanks for the answer. Yes, I think it would be very useful.
In the mean time, I added an ActiveX Script Step to the red gate backup job that checks the local drive for .sqb files older than 14 days. and removes them and set my backup job to retain files up to 30 days. That should work for now. Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld
iDaysOld =14
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "F:\Redgate_SQL_Backup"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
For each oFile in oFileCollection
if Right(oFile.Name,4) =".sqb" Then
If oFile.DateLastModified < (Date() - (iDaysOld-1)) Then
oFile.Delete(True)
End If
End if
Next
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
/ comments
Thanks for the answer. Yes, I think it would be very useful.
In the mean time, I added an ActiveX Script Step to the red gate backup job that checks the local drive for .sqb files older than 14 day...
Different Purge Dates for Local Drive and Network Shares?
Not sure if this is possible...
If I am backing up to a Local drive and a network share I'd like them to have different purge intervals. make sense? In other words, I'd like to keep my backups on l...