string zerlegen (batch)

Hallo
ich möchte jeder txt dateinamen von einem ordner lesen, die in einem txt. datei schreiben und die namen zerlegen.
ich habe versucht mit batch zu schreiben.aber irgen wie geht nicht

FOR %%I IN (*.txt) DO (	

  echo  %%I >> list.txt

set VAR= %%I:~3,4
echo VAR
)

Eine Dateiname sieht so aus : AD20101212.txt
davon möchte ich nur 2010 raus ziehen und in einen anderen Pfad schreiben wie
D\test\2010
es wäre super,wenn jemand mir helfen kann..