Перемещение файлов в подпапки по 50/100/150 штук

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

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

@echo off
set "d=papka"
 pushd "%d%"
  2>nul dir /a-d/b|>nul find /v "" || goto :eof
  echo Файлы есть
 popd
pause