[文本处理] 如何将一个文件夹里的多个文件按指定数量依次移动到另一个文件夹里的多个子文件夹里

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /ad /b /s B\*') do (
set /a a+=1
set !a!=%%a
echo !a!=%%a
) 
set /p n=请输入
set /a aa=!n!*!a!
for /f "delims=" %%a in ('dir /a-d /b /s A *.*') do (
set /a b+=1
set /a c+=1
if "!c!" gtr "!a!" set c=1
call :a "%%a"
if "!b!"=="!aa!" pause&exit
)
:a
move %1 "!%c:"=%!"
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /ad /b /s B\*') do (
set /a a+=1
set !a!=%%a
echo !a!=%%a
) 
set /p n=请输入
set /a aa=!n!*!a!
for /f "delims=" %%a in ('dir /a-d /b /s A\*.*') do (
set /a b+=1
set /a c+=1
if "!c!" gtr "!a!" set c=1
call :a "%%a"
if !b! == !n! pause&exit
)
:a
move %1 "!%c:"=%!"
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
set /p n=输入要复制的本数：
set c=0
for /f "delims=" %%a in ('dir /a-d /s /b a\*.*') do (set /a c+=1)
set /a b=c-n
:l
for /f "delims=" %%a in ('dir /ad /s /b b\*') do (
   set a=0 
   for /f "delims=" %%b in ('dir /a-d /s /b a\*.*') do (
     set /a a+=1
     if !a! gtr !b! move "%%b" "%%a"
     if !a! == !c! set /a c-=n&set /a b-=n
) 
)
dir /a-d /s /b a\*.*
if errorlevel == 1 (exit) else (goto l)
复制代码

@echo off
setlocal enabledelayedexpansion
set /p n=输入要复制的本数：
:l
for /f "delims=" %%a in ('dir /ad /s /b b\*') do (
   set a=0 
   for /f "delims=" %%b in ('dir /a-d /s /b a\*.*') do (
     set /a a+=1
     if !a! leq !n! move "%%b" "%%a"  
) 
)
dir /a-d /s /b a\*.*
if errorlevel == 1 (exit) else (goto l)
复制代码