[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

.