Перенос n-ного количества файлов из одной папки в другую

@echo off
SetLocal enabledelayedexpansion
set 
 
for /f "delims=" %%a in ('dir /b /a "C:\Work\Bat\A\*"') do (
if not "!flag!"=="10" (
copy /y "C:\Work\Bat\03\%%a" "C:\Work\Bat\B\"
set /a flag+=1
 
))

@echo off
SetLocal enabledelayedexpansion
set 
 
for /f "delims=" %%a in ('dir /b /a "C:\Work\Bat\A\*"') do (
if not "!flag!"=="10" (
copy /y "C:\Work\Bat\A\%%a" "C:\Work\Bat\B\"
set /a flag+=1
 
))

rem в моем случае помог ключ /ON -сортировка по имени . Как выяснилось, имена из чисел тоже сортируются. 
SET flag=0
for /F %%i in ('dir /ON /b /A-D C:\Work\Bat\A\*.*') do call :next C:\Work\Bat\A\%%i
goto :EOF
 
rem COUNT = задаем нужное кол-во перемещаемых файлов. 
:next
if [%flag%]==[%COUNT%] goto :EOF
 
SET /A flag=%flag%+1
move %1 C:\Work\Bat\B

if [%flag%]==[5] goto :EOF

@echo off
setlocal
 
:: Устанавливаем нужное количество файлов для перемещения:
set n=10
 
:: Папка, из которой перемещаем файлы:
set "src=C:\Test 1"
 
:: Папка, в которую перемещаем файлы:
set "dest=C:\Test 2"
 
for /f "delims=" %%i in ('2^>nul dir /on /b /a-d "%src%"') do call :sub "%src%\%%i"
 
:exit
endlocal
goto :eof
 
:sub
     set /a i+=1
     if %i% leq %n% (move /y "%~1" "%dest%") else goto :exit
     exit /b 0

@echo off
setlocal
 
:: Устанавливаем нужное количество файлов для перемещения:
set n=5
 
for /f "delims=" %%i in ('2^>nul dir /on /b /a-d-h-s') do if "%%i" neq "%~nx0" call :sub "%%i"
 
endlocal
pause>nul
goto :eof
 
:sub
    set /a i+=1
    if %i% equ 1 set /a j+=1
    2>nul md %j%
    2>nul move /y "%~1" %j%\
    if %i% equ %n% set i=
    exit /b 0