[分享]批处理从每个文件夹只提取一个图片到新文件夹

Batcher

【问题描述】

请教下，可以帮忙写个代码，让每个文件夹只提取一个图片，复制在新建的文件夹里面吗？

Batcher

【解决方案】

test_1.bat 请参考Q-04把bat文件保存为ANSI编码：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

1. @echo off
   
2. cd /d "%~dp0"
   
3. set "NewFolder=%~dp0..\新建文件夹"
   
4. if not exist "%NewFolder%" (
   
5.     md "%NewFolder%"
   
6. )
   
7. 
   
8. for /f "delims=" %%i in ('dir /b /ad') do (
   
9.     echo 正在处理文件夹：%%i
   
10.     pushd "%%i"
    
11.     call :MoveFile
    
12.     popd
    
13. )
    
14. pause
    
15. goto :eof
    
16. 
    
17. :MoveFile
    
18. for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
    
19.     echo 复制文件 "%%i" 到文件夹 "%NewFolder%"
    
20.     copy "%%i" "%NewFolder%"
    
21.     goto :eof
    
22. )

复制代码

Batcher

【问题2】

可以再稍微改2个点吗：①新建的文件夹可以放在文件夹里面，不要放在桌面；②可以把每个文件夹含有【正面】这个字眼的图片单独复制在新建的文件夹里面

【方案2】

1. @echo off
   
2. cd /d "%~dp0"
   
3. set "NewFolder=BatTest文件夹"
   
4. if not exist "%NewFolder%" (
   
5.     md "%NewFolder%"
   
6. )
   
7. 
   
8. for /f "delims=" %%i in ('dir /b /ad ^| findstr /v /x "%NewFolder%"') do (
   
9.     echo 正在处理文件夹：%%i
   
10.     pushd "%%i"
    
11.     call :CopyFile
    
12.     copy /y "*正面*.jpg" "..\%NewFolder%"
    
13.     popd
    
14. )
    
15. pause
    
16. goto :eof
    
17. 
    
18. :CopyFile
    
19. for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
    
20.     echo 复制文件 "%%i" 到文件夹 "%NewFolder%"
    
21.     copy /y "%%i" "..\%NewFolder%"
    
22.     goto :eof
    
23. )

复制代码

Batcher

【需求3】

可以用了；但是现在把每个文件夹内每一张图片和含有正面的 都提取了，可以再微调吗，就是分开一种是每一张图片，另外一种是 含有正面的

【方案3】

1. @echo off
   
2. cd /d "%~dp0"
   
3. set "NewFolder1=BatTest一张"
   
4. set "NewFolder2=BatTest正面"
   
5. if not exist "%NewFolder1%" (
   
6.     md "%NewFolder1%"
   
7. )
   
8. if not exist "%NewFolder2%" (
   
9.     md "%NewFolder2%"
   
10. )
    
11. 
    
12. for /f "delims=" %%i in ('dir /b /ad ^| findstr /v /x /c:"%NewFolder1%" /c:"%NewFolder2%"') do (
    
13.     echo 正在处理文件夹：%%i
    
14.     pushd "%%i"
    
15.     call :MoveFile
    
16.     copy /y "*正面*.jpg" "..\%NewFolder2%"
    
17.     popd
    
18. )
    
19. pause
    
20. goto :eof
    
21. 
    
22. :MoveFile
    
23. for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
    
24.     echo 复制文件 "%%i" 到文件夹 "%NewFolder1%"
    
25.     copy /y "%%i" "..\%NewFolder1%"
    
26.     goto :eof
    
27. )

复制代码