QUE WINDOWS  ELIMINE CARPETAS CADA CIERTO TIEMPO

Archivas en una determinada carpeta otras carpetas que debes eliminar cada cierto tiempo?? Si es así, y deseas no estar pendiente de esta tarea, puedes indicarle al propio windows que sea el personalmente quién se encargue de hacerlo.

Lo hará de manera totalmente automática. Núnca más volverá a olvidarse de esas carpetas que ya hace días debían haber desaparecido de tu disco duro.....

Lo primero es determinar una carpeta en la que diariamente irás creando y eliminando carpetas. La nuestra esta en C:\ y se llama informes.

 Para crear una nueva carpeta sólo tienes que ir al menú archivo /nuevo/carpeta por último tecletea su nombre....

Una vez decidida la carpeta y su ubicación, haz clic con el botón derecho del ratón en un punto vacio del escritorio, en el menú que nos sale clic  en nuevo y elegimos archivo de texto....

Dale este nombre BorrarInformes.. o el que quieras.....

Presiona dos veces seguidas la tecla intro y, el documento de texto se abrirá introduce este código eso si ten en cuenta que dónde pone C:\Informes tu tienes que introducir la ruta exacta de la carpeta que elijas  y dónde pone  If tiempo >= 2 then debes poner el número de días que como máximo quieras que las carpetas se mantengán sin eliminar ... y que pasado ese número de días windows las elimine.

os lo dejo así para que lo podaís copiar haciendo los cambios pertinentes.. ok

Dim i, objeto, carpeta, carpetas, tiempo, ListaCarpetas()
Set objeto = CreateObject("Scripting.FileSystemObject")
Set carpetas = objeto.GetFolder("c:\Informes").SubFolders
For Each carpeta in carpetas
        tiempo = DateDiff("d",carpeta.DateCreated,Now)
        If tiempo >= 2 then
        ReDim preserve ListaCarpetas(i)
        ListaCarpetas(i) = Carpeta.Name
        i = i + 1
        end if
Next
For Each Nombre in ListaCarpetas
    objeto.DeleteFolder("c:\Informes" & "\" & Nombre)
Next

if i = 0 then
        numerocarpetas=msgbox ("No había ninguna carpeta que borrar")
        elseif i= 1 then
        numerocarpetas=msgbox("Se han eliminado "& i & " carpeta")
        elseif i > 1 then
        numerocarpetas=msgbox("Se han eliminado " & i & " carpetas")

end if

Luego cierra el block de notas y guarda los cambios, a continuación damos doble click sobre el archivo y le cambiamos la extensión .txt  por .vbs.. veréis que os queda así

El fichero que acabas de crear contiene un código script que se encagará de eliminar todas las carpetas que llevén más de dos días en la carpeta que hemos elegido como informes. Para ello sólo tendrías que hacer doble clic sobre el y llevaría a cabo su función.

Pero queremos que lo haga windows , sin que tengas que acordarte tú de hacerlo... Para ello recurriremos al programador de tareas, para llegar hasta él, Inicio/todos los programas/accesorios/herramientas del sistema/tareas programadas..

Seguidamente sobre la ventana que aparecerá haz clic sobre el icono (Agregar tarea programada) luego pulsa siguiente y en esta ventana clic en examinar.....

Busca el escritorio (donde esta nuestro script) y seleccionalo y clic en abrir ....

Se abrirá esta ventana elige al iniciar el equipo y clic en siguiente.....

Si para iniciar tu sesión usas contraseña, deberás indicarsela y clic en siguiente.....

Si todo ha ido bien nos saldrá este mensaje clic en finalizar...

Y podremos ver en tareas programadas que se cumplirá ...

Bueno pues vamos a ver que tal funciona, imagina que hoy hemos creado dos carpetas en nuestra carpeta informes y que solo pueden permanecer 2 días que es lo que le hemos marcado... ( podéis poner el nombre que queráis a las carpetas, estás llevan la fecha por el manual solo eso..)

Pues mañana día 13 cuando inicies windows recibirás este mensaje, evidentemente hoy no toca eliminarlas y en el script le hemos puesto que nos de este mensaje el día 1 que es el primer día de su permanencia dentro de Informes

Pero el día 14 cuando inicies windows ya es su segundo día de permanencia con lo cúal toca eliminarlas y recibirás este mensaje......

Puedes comprobarlo tu mismo/a que se han eliminado solo están las que aún no le toca eliminación......

Espero que este truquillo os sea útil.

Un besote

Marian