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

[vsuwi]

будьте добры помогите с командой.
у меня есть папка с ~4000 файлов которые мне надо разобрать.
что бы ускорить процесс я хочу их раскидать по папкам. 100 файлов в папке.
то есть создать папки и переместить файлы по сто штук. сортировка не принципиальна.
сам я раньше батники писал но в данном случае "не осилил".
заранее спасибо.

[alpap]

@echo off
set kf=100 &: Число файлов в папке
set "d=C:\papka" &: Путь к основной папке
:l
set/a m+=1
setlocal enabledelayedexpansion
2>nul dir/a-d/b "%d%"|>nul find/v "" || goto :eof
for /f "delims=" %%a in ('2^>nul dir/a-d/b "%d%"') do (
if not exist "%d%_%m%" md "%d%_%m%"
set/a n+=1& if !n! leq %kf% >nul move/y "%d%\%%a" "%d%_%m%\%%a"
)
endlocal
goto l
exit
.

[vsuwi]

спасибо большое. то то надо!