Comments
Sort by recent activity
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...