Foro de elhacker.net

Hola.
me gustaria saber como puedo hacer para mover unos ficheros segun su fecha de creacion y dejarlos en una carpeta independiente. Tengo en una carpeta una serie de log que me ocupan mucho y que se crean a diario y megustaria hacer una tarea que moviera los ficheros a partir del ultimo mes y luego en esa carpeta yo comprimirlos con otra tarea que tengo preparada. Se que con este scrip puedo borrar esos ficheros, pero lo que quiero es moverlos.
Set objfso = createobject("scripting.filesystemobject")
Set directorio = objfso.getfolder("C:\log\")
Set dirfiles = directorio.files
For Each d in dirfiles
If datediff("d",d.datecreated,now()) >= 2 Then
If Extension = "txt" Then
objfso.deletefile(d.path) cambiar esto por
Objfso.movefile (d.path)"c:\logantiguos"
End If
End If
next
Lo hago a si pero no me hace nada. Alguien me puede ayudar

Si ya tienes un tema no abras otro con lo mismo  :¬¬

http://foro.elhacker.net/scripting/bat_para_comprimir_el_ficheros_en_zip_o_rar-t245713.0.html

Saludos