[文件操作] 批处理如何随机取一组文件 放到别的文件夹中？

@echo off
setlocal enabledelayedexpansion 
set count1=
set skp1=
rem 2 for 
set skp2=

set /a randNum=

for /f %%i in ( 'dir /ad /s /b E:\补充资料\剪切实验' ) do (	
set /a count1=count1+1
)
for /f %%i in ( 'dir /ad /b E:\补充资料\剪切实验' ) do (	
set /a skp1=skp1+1
)
rem 获得随机的范围
set /a randNum=count1-skp1
for /f %%i in ( 'dir /ad /b E:\补充资料\2022' ) do (	
set /a skp2=skp2+1
)
rem 处理数据源

set /a num=0
for /f "skip=%skp1% " %%a in ( 'dir /ad /s /b E:\补充资料\剪切实验' ) do (
	set /a num=num+1
	set path1=
	dir /a-d /s /b %%a>nul 2>nul
	if errorlevel 1 (
		echo !num!$!path1!>>list.txt
	) else (
		for /f %%i in ( 'dir /a-d /s /b %%a' ) do (
		set path1=!path1!$%%~dpnxi
		)
		echo !num!!path1!>>list.txt
	)	
)
rem 复制
for /f "skip=%skp2% " %%a in ( 'dir /ad /s /b E:\补充资料\2022' ) do (
:again
	set bpath1=	
	set bpath2=
	set count=0
	set /a randNum=!random!%%%randNum%+1
	echo !randNum!
	for /f "tokens=1,2,3 delims=$" %%i in ( list.txt ) do (
		if !randNum! == %%i (	
		set bpath1=%%j	
		set bpath2=%%k
		)	
	)
	echo !bpath1!---^>%%a
	if defined bpath1 ( copy !bpath1! %%a ) else ( set /a count=count+1 )
	echo !bpath2!---^>%%a
	if defined bpath2 ( copy !bpath2! %%a ) else ( set /a count=count+1 )

	if !count! == 2 goto again
)
复制代码