[решено] Раскидать файлы по папкам

[Denn1982]

Здравствуйте!
Помогите написать бат-файл. Задача такая:
Есть папка - в ней куча файлов. Необходимо раскидать все эти файлы по папкам. Папка создается по первым двум буквам названия файла, соответственно все файлы, которые начинаются с этих двух букв перемещаются в эту папку.

[Foreigner]

@echo off
setlocal

pushd "C:\Path\To\Your Folder" || goto:eof

for /f "tokens=*" %%i in (' dir /b /a-d ') do call:move "%%i"
popd
goto:eof

:move
set "dest=%~1"
2>nul md "%dest:~0,2%"

move %1 "%dest:~0,2%"