Ayuda con VBS que borra archivos

[elecktra]

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:

Código [Seleccionar] Expandir

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.

[Novlucker]

Código (vb,10) [Seleccionar] Expandir

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("d",objfso.getfile(fi).datecreated,now()) >= 3 then
objfso.deletefile(objfso.getfile(fi).path)
end if
end if
end if
loop
temp.close
Solo he cambiado la línea 10

Saludos

[elecktra]

Se agradece amigo, muchas gracias.