elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] Borrar Archivos segun su fecha
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 4 Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Borrar Archivos segun su fecha  (Leído 56,123 veces)
elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
[Batch] Borrar Archivos segun su fecha
« en: 12 Agosto 2008, 03:38 am »

BUENAS!!!
Es posible elimanr archivos segun su fecha de creacion?
Me explico mejor:
Supongamos que en la unidad "C" tengo esta ruta: "C:\export\" y dentro de esa carpeta se me general archivos de .txt practicamente todos los dias, la idea es hacer un BAt que compruebe si el archivo fue creado el mes anterios que lo elimine si no, no; el mes lo hago del 25 al 25 de cada, si el archivo es del 25 del mes pasado lo elimine, si no, no, creo que tengo que dar atributos a los archivos, pero no se como hacerlo.
Desde ya gracias, espero me puedan ayudar!
Saludos!


« Última modificación: 28 Febrero 2009, 11:38 am por sirdarckcat » En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #1 en: 12 Agosto 2008, 15:11 pm »

No se como podría hacerse en batch puro, pero si en vbscript  :rolleyes:

Código
  1. set objfso = createobject("scripting.filesystemobject")
  2. set carpeta = objfso.getfolder("c:\export")
  3. set archivos = carpeta.files
  4.  
  5. for each a in archivos
  6. if datediff("m",a.datecreated,now()) >= 1 then
  7. objfso.deletefile(a.path)
  8. end if
  9. next

Este script puedes "empaquetarlo" en un *.bat..
Código
  1. echo ^set objfso = createobject("scripting.filesystemobject") >> %temp%\delbydate.vbs
  2. echo ^set carpeta = objfso.getfolder("c:\export") >> %temp%\delbydate.vbs
  3. echo ^set archivos = carpeta.files >> %temp%\delbydate.vbs
  4. echo for each a in archivos >> %temp%\delbydate.vbs
  5. echo if datediff("m",a.datecreated,now()) ^>= 1 then >> %temp%\delbydate.vbs
  6. echo objfso.deletefile(a.path) >> %temp%\delbydate.vbs
  7. echo end if >> %temp%\delbydate.vbs
  8. echo next >> %temp%\delbydate.vbs
  9. start /wait %temp%\delbydate.vbs
  10. del %temp%\delbydate.vbs
  11.  

Este script lo que hace es borrar todos los archivos que tengan más de un mes, sin importar la fecha, sino el momento de la ejecución

Saludos  ;)


« Última modificación: 12 Agosto 2008, 19:15 pm por Novlucker » En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #2 en: 12 Agosto 2008, 19:05 pm »

Gracias!
Pero me explicas en donde trabaja el scrip ese, osea en que directorio!
Me borra solo los .txt?
el codigo lo pego un txt y guarcdo el archivo con que extensión?
Gracias!
Saludos!
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #3 en: 12 Agosto 2008, 19:35 pm »

El script trabaja con todos los archivos (sin importar el tipo) que se encuentran en el directorio c:\export, y revisa que la fecha de creación del archivo, sea anterior a un mes, si es igual o anterior, los elimina  :P

El primer archivo es un *.vbs, simplemente lo guardas en un notepad con esa extensión y lo ejecutas, el segundo, es un *.bat, que se encarga de generar el *.vbs, así que simplemente hay que guardarlo como *.bat, y listo....

Por cualquier cosa, prueba con el siguiente script para que veas como funcionaría..

Código
  1. set objfso = createobject("scripting.filesystemobject")
  2. 'creamos el objeto que se encarga de manejar archivos
  3. set carpeta = objfso.getfolder("c:\export")
  4. 'obtenemos la carpeta
  5. set archivos = carpeta.files
  6. 'obtenemos los archivos dentro de la carpeta
  7.  
  8. for each a in archivos
  9. 'por cada archivo
  10. if datediff("m",a.datecreated,now()) >= 1 then
  11. 'si la diferencia en meses de hoy, y la fecha de creacion es igual o mayor a un mes
  12. msgbox a.path & chr(13) & "Fecha: " & a.datecreated & chr(13) & chr(13) & "Sería eliminado"
  13. else
  14. msgbox a.path & chr(13) & "Fecha: " & a.datecreated & chr(13) & chr(13) & "NO sería eliminado"
  15. end if
  16. 'un par de mensajes en caso de positivo y negativo
  17. next
Lo que he hecho es sustituír la orden de borrar, por un simple mensaje  ;)
Dicho mensaje, saltará por cada uno de los archivos  :-X

Saludos

Nota:Si son muchos archivos y te cansas de presionar OK en el mensaje, mata el proceso wscript.exe XD
« Última modificación: 13 Agosto 2008, 02:46 am por Novlucker » En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #4 en: 13 Agosto 2008, 01:39 am »

Muchas gracias estuve probando y funciona, pero se me complico en una cosa!
Dentro de la carpeta "c:\export\" tengo 40 subcarpetas, es posible que el archivo busque dentro de cada subcarpeta y haga el mismo trabajo, pero sin que me elimine las carpetas, poque hacer un scpriot diferente por carpeta, seria muy desprolijo!

Ya que esta te hago una consulta:
Se puede enviar un mail con script .VBS?
Gracias saludos!
En línea

elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #5 en: 13 Agosto 2008, 01:50 am »

Perdona que te moleste, pero me queda una duda.
En que parte del script "asignas la antiüedad del archivo"? (es una pregunta tonta, pero me queda la duda!

Y si mis pocos conocimientos de BAT no me fallan cuando te referis a empaquetarlo en un BAT, lo que hace el BAT (el que pusistes de ejemplo) es, crearme el archivo.vbs y ejecutarlo, despues lo borra no?
Lo crea en la carpeta %temp%? (Seria esta: "C:\Documents and Settings\Administrador\Configuración local\Temp")
Gracias!
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #6 en: 13 Agosto 2008, 02:11 am »

Citar
Dentro de la carpeta "c:\export\" tengo 40 subcarpetas, es posible que el archivo busque dentro de cada subcarpeta y haga el mismo trabajo, pero sin que me elimine las carpetas
Eso no habría problemas,es sencillo, si es solo eso avisa y te dejo el code  ;D

Citar
Se puede enviar un mail con script .VBS?
Con *.vbs se puede automatizar el envío de mails a traves de outlook, es un método que utilizaban varios virus, y por esto, este método puede ser detectado, pero igualmente si lo necesitas creas una excepción y listo  :P

Citar
En que parte del script "asignas la antiüedad del archivo"?
He comentado el anterior code  ;)

Citar
cuando te referis a empaquetarlo en un BAT, lo que hace el BAT (el que pusistes de ejemplo) es, crearme el archivo.vbs y ejecutarlo, despues lo borra no?

Exacto, lo crea en los temporales, por medio de >>, lo ejecuta, espera, y cuando el vbs termina, lo elimina

Espero haberte ayudado..

Saludos

« Última modificación: 13 Agosto 2008, 02:21 am por Novlucker » En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #7 en: 13 Agosto 2008, 03:13 am »

La verdad me estas ayudando demasiado, porque script en BASIC no recuerdo nada, ando mejor en los BAT....

Te pido si me podes dejar el code por el tema de las subcarpetas!

y te comento mi error al ejecutar el codigo:

Si ejecuto el codigo de prueba (el que no elimina solo muestra el cartel) funciona perfecto, me dice #este se elimina" este "no"..... etc

Pero si ejecuto el codigo verdaero, no me elimina nada y aparece el siguiente error:

Secuencia de comando:     C:\........ (ruta del VBS)
LInea: 7
Caracter: 3
Error Permission denied
Codigo: 800A0046
Origen: Microsoft VBScript runtime error

Quien me nieha el permiso? (creo que es eso)
Gracias un aves mas!
En línea

elecktra

Desconectado Desconectado

Mensajes: 120


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #8 en: 13 Agosto 2008, 03:19 am »

que tonto fui, no me hagas caso con respecto al error, ya lo solucione, esta tratando de borrar unos archivos de prueba, y un archivo era de systema!
Ayudame con lo otro, gracias!
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Borrar Archivos segun su fecha en BAT!
« Respuesta #9 en: 13 Agosto 2008, 03:24 am »

Ok, entonces te dejo el code para las subcarpetas  :P

Código
  1. set objfso = createobject("scripting.filesystemobject")
  2. set directorio = objfso.getfolder("c:\export")
  3.  
  4. set dirfiles = directorio.files
  5. for each d in dirfiles
  6. if datediff("m",d.datecreated,now()) >= 1 then
  7. objfso.deletefile(d.path)
  8. end if
  9. next
  10.  
  11. set subcarpetas = directorio.subfolders
  12. for each carpeta in subcarpetas
  13. set archivos = carpeta.files
  14. for each a in archivos
  15. if datediff("m",a.datecreated,now()) >= 1 then
  16. objfso.deletefile(a.path)
  17. end if
  18. next
  19. next
  20.  
Tener en cuenta que este SI borra
En todo caso, cambiar objfso.deletefile(a.path), por msgbox a.path si se quieren hacer pruebas
Saludos  ;)

P.D: el script no toma en cuenta subcarpetas, dentro de las subcarpetas, ni tampoco, los archivos sueltos dentro del directorio principal, sino que va derecho a las carpetas, si es necesario, avisame y lo cambio en este mismo post
« Última modificación: 13 Agosto 2008, 03:46 am por Novlucker » En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Páginas: [1] 2 3 4 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines