Сортировка фото по папкам

@echo off
setlocal enabledelayedexpansion
set "pf=%Userprofile%\Desktop\papka_f" &: Здесь появляющиеся файлы
set "pp=%Userprofile%\Desktop\papka_p" &: Здесь 10 блоков (папок)
set m=0
for /f "delims=" %%i in ('dir/a-d/b "%pf%\*"^|find /v /c ""') do ( 
 if %%i geq 5 (
  for /f "delims=" %%a in ('dir/a-d/b "%pf%\*"') do (  
   set/a m+=1& set "f!m!=%%a"& call :l "%%f!m!%%"
  )
 )
)
exit
 
:l
 set n=0
 for /f "delims=" %%b in ('dir/ad/b "%pp%"') do (
  set/a n+=1& if !m!==!n! move "%pf%\%~1" "%pp%\%%b" 
)
exit/b

@echo off
rem Исходная папка:
set pth1=c:\Test1
rem Целевая папка, с подпапками БлокN:
set pth2=c:\Test2
rem Ограничение на количество файлов (должно существовать столько же конечных папок "БлокN"):
set lim=10
:begin
set count=0
for /f %%n in ('dir /b/a-d "%pth1%\*.jpg"') do (
    set /a count+=1
)
setlocal enabledelayedexpansion
if !count! gtr !lim! (goto :m) else (timeout /t 20 >nul&&goto :begin)
pause&&exit
 
:m
set z=1
for /f "delims=" %%i in ('dir /b/a-d "!pth1!\*.jpg"') do (
    move /y "!pth1!\%%~i" "!pth2!\Блок!z!"
    if !z! geq !lim! (set z=1) else (set /a z+=1)
)
goto :begin

if %%i geq 10 (