Recent Posts
- January 2012
- November 2011
- October 2011
- September 2011
- August 2011
- July 2011
- June 2011
- May 2011
- April 2011
- March 2011
- February 2011
- January 2011
- December 2010
- November 2010
- October 2010
- September 2010
- August 2010
- July 2010
- June 2010
- May 2010
- April 2010
- March 2010
- February 2010
- January 2010
- December 2009
- November 2009
- October 2009
- September 2009
- August 2009
- July 2009
- June 2009
- May 2009
- April 2009
- March 2009
- February 2009
- January 2009
- December 2008
- November 2008
- October 2008
- September 2008
- August 2008
- July 2008
- June 2008
- May 2008
- April 2008
- March 2008
- February 2008
- January 2008
- December 2007
- November 2007
- October 2007
- July 2007
Recent Comments
- Makendra It's always a pleasure to hear from someone with eexrpitse....
- Rubén Ortiz Hola dependerá de varias cosas pero la respuesta sería NO. ...
- jose miguel perea Buenos días, ¿La replicación entre maestro y esclavo es i...
- Rubén Ortiz Si lo hacéis legal, con VMware el único problema son los cos...
- Angel Hola, estamos valorando implementar baremetal para crear un ...
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 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 |
¿En qué lenguaje se ejecuta? ¿VBA?