este es el script:
Código
set objshell = createobject("wscript.shell") objshell.run "cmd /c dir d:\PUBLIC /s /b> templist.txt",vbhide wscript.sleep 2000 'listamos los archivos por línea de comandos, y guardamos el listado en un archivo temporal 'luego hacemos una pausa de dos segs para que se cree correctamente el archivo set objfso = createobject("scripting.filesystemobject") set temp = objfso.opentextfile("templist.txt",1) 'abrimos el archivo temporal do until temp.atendofstream fi = temp.readline 'leemos cada una de las líneas del archivo if objfso.fileexists(fi) = true then if objfso.getfile(fi).parentfolder.name <> Registros then 'si existe el archivo (para evitar que sea una carpeta) y la carpeta en la que esta es diferente de Registros if datediff("d",objfso.getfile(fi).datecreated,now()) >= 15 then 'objfso.deletefile(objfso.getfile(fi).path) 'revisamos la fecha y si tiene más de 15 dias (tomando en cuenta la fecha de hoy), lo borramos end if end if end if loop temp.close 'cerramos el archivo temporal
Ah, tampoco se a que se refieren con Registros ...
Saludos,