SQL Server 2000 – Borrar backups

Me ha pasado más de una vez, que el MaintenancePlan de SQL 2000, funciona correctamente menos en el punto en que debe borrar los archivos. Así que he encontrado un buen script de ayuda en mssqltips.com, que elimina automáticamente los archivos de una ruta física del disco duro y sus subcarpetas teniendo en cuenta un valor, el día de antiguedad que deseemos.


iDaysOld = 7
strPath = "C:\BACKUP"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
Set colSubfolders = objFolder.Subfolders
Set colFiles = objFolder.Files
For Each objFile in colFiles
If objFile.DateLastModified < (Date() - iDaysOld) Then MsgBox "Dir: " & objFolder.Name & vbCrLf & "File: " & objFile.Name 'objFile.Delete End If Next For Each objSubfolder in colSubfolders Set colFiles = objSubfolder.Files For Each objFile in colFiles If objFile.DateLastModified < (Date() - iDaysOld) Then MsgBox "Dir: " & objSubfolder.Name & vbCrLf & "File: " & objFile.Name 'objFile.Delete End If Next Next

Links
http://www.mssqltips.com/tip.asp?tip=1324