Ms-Dos - crear directorio y mover dentr

Hola,

Tengo un directorio con muchos ficheros y me gustaría crear directorios con las 3 primeras letras de los ficheros y todo lo que comenzara por esas 3 primeras letras me lo moviera dentro.

es posible mediante un msdos batch ??

por ejemplo

AFA00009-17.DOC
AFA000.doc
afa00008_1.doc
pep0007-1.doc

este me crearía dos directorios afa y pep, y me movería dentro los ficheros.

Muchas gracias

Saludos.


-----------------------------------
crea.bat
-----------------------------------
@echo off
for /F "tokens=1" %%i in ('dir /B *.doc') do (
call imprime.bat %%i
)

----------------------------------
imprime.bat
---------------------------------
@echo off

set DATO=%1
echo %DATO:~0,3%
mkdir %DATO:~0,3%
move %DATO:~0,3%* %DATO:~0,3%

muchas gracias armando! feliz año 2011 :)