[已解决]如何增加拖拽进批处理获取路径的功能

a6236130

1. echo off
   
2. set "file_name=A1"
   
3. set "DstDir=E:\TQ"
   
4. if not exist "%DstDir%" md "%DstDir%"
   
5. for /d %%i in (%file_name%) do (
   
6. for /f "delims=*" %%a in ('dir /b /s /a-d *%%i*.jpg') do (
   
7. set "_path=%%~dpa"
   
8.     setlocal enabledelayedexpansion
   
9.     if /i "!_path:%DstDir%=!" equ "!_path!" (
   
10.         set "_path=!_path:%~dp0=!"
    
11.         set "_path=!_path:\=-!"
    
12.                 if not exist "%DstDir%\!_path:~0,-1!" md "%DstDir%\!_path:~0,-1!"
    
13.         echo Y|move "%%a" "%DstDir%\!_path:~0,-1!\%%~nxa"
    
14.     )
    
15.     endlocal
    
16. )
    
17. )
    
18. pause
    

复制代码

代码如上，需要新增一个可以将拖拽文件夹进批处理界面以获取路径的功能，需要如何修改，求具体代码？

1139054012

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. :: 设置目标目录
   
5. set "DstDir=E:\TQ"
   
6. 
   
7. :: 如果没有目标目录则创建
   
8. if not exist "%DstDir%" md "%DstDir%"
   
9. 
   
10. :: 判断是否有拖拽参数传入
    
11. if "%~1"=="" (
    
12.     echo 没有拖拽文件夹，使用默认逻辑处理当前目录下包含 A1 的文件...
    
13.     set "file_name=A1"
    
14.     call :ProcessFiles *%file_name%*
    
15. ) else (
    
16.     echo 检测到拖拽的路径：
    
17.     :LoopThroughArgs
    
18.     if not "%~1"=="" (
    
19.         echo 正在处理路径: %~1
    
20. 
    
21.         :: 判断是否为文件还是文件夹
    
22.         if exist "%~1" (
    
23.             echo 是一个文件夹，直接处理
    
24.             pushd "%~1"
    
25.         ) else (
    
26.             echo 是一个文件，将处理其所在文件夹
    
27.             pushd "%~dp1"
    
28.         )
    
29. 
    
30.         call :ProcessFiles *
    
31.         popd
    
32.         shift
    
33.         goto LoopThroughArgs
    
34.     )
    
35. )
    
36. 
    
37. pause
    
38. exit /b
    
39. 
    
40. :: 子程序：处理指定路径下的所有 *.jpg 文件
    
41. :ProcessFiles
    
42. for /f "delims=*" %%a in ('dir /b /s /a-d *.jpg') do (
    
43.     set "_path=%%~dpa"
    
44.     setlocal enabledelayedexpansion
    
45.     if /i "!_path:%DstDir%=!" equ "!_path!" (
    
46.         set "_path=!_path:%~dp0=!"
    
47.         set "_path=!_path:\=-!"
    
48.         if not exist "%DstDir%\!_path:~0,-1!" md "%DstDir%\!_path:~0,-1!"
    
49.         echo Y|move "%%a" "%DstDir%\!_path:~0,-1!\%%~nxa" >nul 2>&1
    
50.     )
    
51.     endlocal
    
52. )
    
53. goto :eof

复制代码

aloha20200628

回复 1# a6236130

一楼代码最终是要 move "当前目录及其子目录中的*.jpg" "%DstDir%\..."，楼主须明确拖入批处理脚本的路径是要替代 当前目录 还是要替代 %DetDir% ?

a6236130

回复 2# 1139054012


    我自己解决了，但还是感谢您的帮助

a6236130

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "DstDir=E:\1"
   
4. if not exist "%DstDir%" md "%DstDir%"
   
5. :GetFolder
   
6. set /p "folderPath=路径: "
   
7. set "folderPath=%folderPath:"=%"
   
8. if not exist "%folderPath%" (
   
9.     goto GetFolder
   
10. )
    
11. set "filterChar1=A1"
    
12. set "filterChar2=A2"
    
13. pushd "%folderPath%"
    
14. set "baseDir=!cd!"
    
15. for /f "delims=" %%a in ('dir /b /s /a-d *.jpg') do (
    
16.     set "fileName=%%~nxa"
    
17.     echo !fileName! | find /i "!filterChar1!" >nul
    
18.     if !errorlevel! equ 0 (
    
19.         set "process=yes"
    
20.     ) else (
    
21.         echo !fileName! | find /i "!filterChar2!" >nul
    
22.         if !errorlevel! equ 0 set "process=yes"
    
23.     )
    
24.     if defined process (
    
25.         set "_path=%%~dpa"
    
26.         setlocal enabledelayedexpansion
    
27.         if /i "!_path:%DstDir%=!" equ "!_path!" (
    
28.             set "_relpath=!_path:%baseDir%\=!"
    
29.             if "!_relpath!"=="!_path!" (
    
30.                 set "_relpath="
    
31.             )
    
32.             if defined _relpath (
    
33.                 set "_relpath=!_relpath:\=-!"
    
34.                 set "_relpath=!_relpath:~0,-1!"  
    
35.             )
    
36.             set "targetDir=%DstDir%"
    
37.             if defined _relpath (
    
38.                 set "targetDir=%DstDir%\!_relpath!"
    
39.             )
    
40.             if not exist "!targetDir!" (
    
41.                 md "!targetDir!"
    
42.             )
    
43.             echo Y|move "%%a" "!targetDir!\%%~nxa" >nul
    
44.         )
    
45.         endlocal
    
46.         set "process="
    
47.     )
    
48. )
    
49. popd
    
50. echo 文件已移动到 %DstDir%
    
51. pause

复制代码

77七

1. @echo off
   
2. set list="*a1*.jpg" "*a2*.jpg"
   
3. set "folder_to=d:\1"
   
4. 
   
5. set /p folder_from=:
   
6. 
   
7. for /f "delims=" %%a in ("%folder_from%") do (
   
8.         pushd "%%~a"
   
9.         for /r /d %%d in (*) do (
   
10.                 set folder=%%d
    
11.                 setlocal enabledelayedexpansion
    
12.                 set "folder=!folder:%%~a\=!"
    
13.                 robocopy "!folder!" "!folder_to!\!folder:\=-!" /mov !list!
    
14.                 endlocal
    
15.         )
    
16.         popd
    
17. )
    
18. pause

复制代码

aloha20200628

回复 5# a6236130

通读了一遍5楼代码，在保留全部必要功能的基础上练了一版简化代码如下，仅供参考...

1. 
   
2. @echo off
   
3. set "DstDir=E:\1"
   
4. if not exist "%DstDir%" md "%DstDir%"
   
5. :GetFolder
   
6.     set /p "folderPath=路径: "
   
7.     set "folderPath=%folderPath:"=%"
   
8.     if not exist "%folderPath%" goto GetFolder
   
9.     if /i "%folderPath:~,4%"=="%DstDir%" goto GetFolder
   
10. set "filterChar1=A1"
    
11. set "filterChar2=A2"
    
12. pushd "%folderPath%"
    
13. for /f "delims=" %%a in ('dir /b/s/a-d "*%filterChar1%*.jpg" "*%filterChar2%*.jpg" ') do (
    
14.     set "a=%%a" &set "nF=%%~nxa" &set "_path=%%~dpa"
    
15.     setlocal enabledelayedexpansion
    
16.     set "_relpath=!_path:%cd%\=!"
    
17.     set "_relpath=!_relpath:\=-!"
    
18.     set "_relpath=!_relpath:~0,-1!"
    
19.     set "targetDir=%DstDir%\!_relpath!"
    
20.     if not exist "!targetDir!" md "!targetDir!"
    
21.     move /y "!a!" "!targetDir!\!nF!" >nul
    
22.     endlocal
    
23. )
    
24. popd
    
25. echo 文件已移动到 %DstDir%
    
26. pause&exit/b
    

复制代码

a6236130

回复 7# aloha20200628


    感谢大哥，学习了！