band of brothers logo warphammer logo

SQL Server 2000 – Borrar backups

February 28th, 2010 por Rubén Ortiz

sql_server_2000

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



Una respuesta

  1. tono

    ¿En qué lenguaje se ejecuta? ¿VBA?

Deja tu comentario

Atención: La moderación de comentarios está activa, tu comentario estó en proceso de moderación. No hace falta que introduzcas tu comentario más veces.