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

set objfso = createobject("scripting.filesystemobject")
set carpeta = objfso.getfolder("c:\export")
set archivos = carpeta.files
 
for each a in archivos
	if datediff("m",a.datecreated,now()) >= 1 then
		objfso.deletefile(a.path)
	end if
next

Este script puedes "empaquetarlo" en un *.bat..

echo ^set objfso = createobject("scripting.filesystemobject") >> %temp%\delbydate.vbs
echo ^set carpeta = objfso.getfolder("c:\export") >> %temp%\delbydate.vbs
echo ^set archivos = carpeta.files >> %temp%\delbydate.vbs
echo for each a in archivos >> %temp%\delbydate.vbs
echo if datediff("m",a.datecreated,now()) ^>= 1 then >> %temp%\delbydate.vbs
echo objfso.deletefile(a.path) >> %temp%\delbydate.vbs
echo end if >> %temp%\delbydate.vbs
echo next >> %temp%\delbydate.vbs
start /wait %temp%\delbydate.vbs
del %temp%\delbydate.vbs
 

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 

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 

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..

set objfso = createobject("scripting.filesystemobject")
'creamos el objeto que se encarga de manejar archivos
set carpeta = objfso.getfolder("c:\export")
'obtenemos la carpeta
set archivos = carpeta.files
'obtenemos los archivos dentro de la carpeta
 
for each a in archivos
'por cada archivo
if datediff("m",a.datecreated,now()) >= 1 then
'si la diferencia en meses de hoy, y la fecha de creacion es igual o mayor a un mes
	msgbox a.path & chr(13) & "Fecha: " & a.datecreated & chr(13) & chr(13) & "Sería eliminado"
else
	msgbox a.path & chr(13) & "Fecha: " & a.datecreated & chr(13) & chr(13) & "NO sería eliminado"
end if
'un par de mensajes en caso de positivo y negativo
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 

Saludos

Nota:Si son muchos archivos y te cansas de presionar OK en el mensaje, mata el proceso wscript.exe XD

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!

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!

Ok, entonces te dejo el code para las subcarpetas 

set objfso = createobject("scripting.filesystemobject")
set directorio = objfso.getfolder("c:\export")
 
set dirfiles = directorio.files
for each d in dirfiles
		if datediff("m",d.datecreated,now()) >= 1 then
			objfso.deletefile(d.path)
		end if
next
 
set subcarpetas = directorio.subfolders
for each carpeta in subcarpetas
	set archivos = carpeta.files
		for each a in archivos
			if datediff("m",a.datecreated,now()) >= 1 then
			objfso.deletefile(a.path)
			end if
		next
next
 

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