¿Cómo quitar automáticamente archivos anteriores a los días «X»?

Hola geeks ! Aquí Raul en un nuevo tutorial para ustedes !
Espero que les sea de su agrado y nos vemos en la próxima

Las copias de seguridad de cintas me han fallado demasiadas veces, por lo que ahora hago la copia de seguridad de Windows en un disco duro externo. Uno de los empleados de la oficina se encarga de cambiar nuestras unidades de copia de seguridad y sacarlas fuera del sitio. Necesitaba una solución que eliminara las copias de seguridad antiguas sin la intervención del usuario, por lo que no deberían preocuparse de tener suficiente espacio disponible para completar la copia de seguridad.

Mis discos duros pueden contener cuatro copias de seguridad, por lo que aquí tiene un script .vbs muy sencillo que elimina los ficheros de I: Archivos de copia de seguridad de más de tres días:

Dim Fso

Dim Directory

Dim Modified

Dim Files

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Directory = Fso.GetFolder("I:Backup Files")

Set Files = Directory.Files

For Each Modified in Files

If DateDiff("D", Modified.DateLastModified, Now) > 3 Then Modified.Delete

Next

Guarde esto como filename.vbs. Para ejecutar este archivo, ejecute:

cscript.exe filename.vbs

Gracias a Don por el guión original que modifiqué para mis necesidades particulares.

[updated 01-02-2008]

Este script del Scripting Guy suprime los archivos ‘X’ de varias horas de antigüedad. Parece que se podría modificar fácilmente para satisfacer sus necesidades.

Deja un comentario