[решено] Раскидать файлы по папкам - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Раскидать файлы по папкам (http://forum.oszone.net/showthread.php?t=238149)

Раскидать файлы по папкам

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

Код:

@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%"