• Miércoles 24 de Abril de 2024, 16:55

Autor Tema:  VBS que borra archivos  (Leído 1446 veces)

norkru

  • Nuevo Miembro
  • *
  • Mensajes: 15
    • Ver Perfil
VBS que borra archivos
« en: Martes 27 de Julio de 2010, 17:14 »
0
Estimados como estan?
necesito de su ayuda, hace tiepo em ayudaron con un script de VBS que lo que hace es borrar archivos con 1 mes de antiguedad, este es el codigo:

Citar
set objshell = createobject("wscript.shell")
objshell.run "cmd /c dir C:pruebas /s /b > temp.txt",vbhide
wscript.sleep 2000
set objfso = createobject("scripting.filesystemobject")
set temp = objfso.opentextfile("temp.txt",1)
do until temp.atendofstream
fi = temp.readline
if objfso.fileexists(fi) = true then
if objfso.getfile(fi).parentfolder.name <> Registros then
if datediff("m",objfso.getfile(fi).datecreated,now()) >= 1 then
objfso.deletefile(objfso.getfile(fi).path)
end if
end if
end if
loop
temp.close

Lo que hace es escanear un directorio y losa rchivos con 1 mes de antiguedad lso elimina, lo que necesito es modificar el tiempo en vez de que sea1 mes necesito que lo elimine en 3 dias, sera posible?
ya que no entiendo VBS.
Gracias.