Advertisement
cancelpc

將目錄A所有的子目錄檔案複製到目錄B

Oct 23rd, 2017
350
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 0.63 KB | None | 0 0
  1. @echo off
  2. setlocal
  3.  
  4. set MY_BASE=%~dp0
  5. set MY_HOME=%MY_BASE:~0,-1%
  6. set MY_NAME=%~n0
  7. set MY_LOG=%MY_HOME%\%MY_NAME%.log
  8.  
  9. rem 來源目錄
  10. set SRC_DIR=F:\Temp
  11. rem 目標目錄
  12. set DST_DIR=F:\Tmp
  13.  
  14. for /f "tokens=1" %%f in ('dir /b /s %SRC_DIR%') do call :X_MOVE "%%f"
  15.  
  16. endlocal
  17. goto END
  18.  
  19.  
  20. rem
  21. rem
  22. rem
  23. :X_MOVE
  24. set FILENAME=%~nx1
  25. set SRC_PATH=%1
  26. set DST_PATH="%DST_DIR%\%FILENAME%"
  27.  
  28. if exist %DST_PATH% (
  29.     rem 若目標檔已存在,寫入紀錄檔...
  30.     echo %FILENAME% 已存在. 來源:%SRC_PATH% >> %MY_LOG%
  31. ) else (
  32.     rem 若目標檔不存在,搬移檔案到目標目錄...
  33.     move /Y %SRC_PATH% to %DST_PATH%
  34. )
  35. :END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement