terse

不通用

@echo off&setlocal enabledelayedexpansion
set "m=7"
for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
    set /a n+=1
    set _!n!=%%a&set "#!n!=!n!"
    if !n! leq !m! (set s=1!s!)else set "s=!s!0"
)
set/a r=n-m,i=j=1
for /l %%i in (1,1,%r%) do set /a "i*=(n-%%i+1),j*=%%i"
set s=0!s!&set /a "i=i/j+10000"
for /l %%i in (10001 1 !i!) do (
     set f=%%i&set "$="
     md "!f:~-3!" 2>nul
     for /l %%j in (1 1 !n!) do if "!s:~%%j,1!" == "1" set $=!$! !#%%j!
     for /f %%j in ("!s:10= !") do set "j=%%j"
     set s=0!j:0=!!j:1=!1!s:*10=!
     for %%j in (!$!) do copy "!_%%j!" "!f:~-3!"
)
pause
复制代码