Advertisement
cancelpc

PTT 檔名更改

Jan 19th, 2020 (edited)
228
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. @echo off
  2. setlocal EnableDelayedExpansion
  3. pushd %CD%
  4.  
  5. set /A fname=0
  6. set base_path=%CD%
  7. set move_path=
  8. set new_fname=
  9.  
  10.  
  11. for /D %%d in (*) do (
  12.     cd %%d
  13.  
  14.     set /A fname=0
  15.     for %%f in (*) do (
  16.         rem 檔案流水號*2-1
  17.         set /A fname=%%~nf
  18.         set /A fname=!fname!*2-1
  19.  
  20.         set new_fname=%%d_!fname!%%~xf
  21.         set move_path=%base_path%\!fname!
  22.         rem 檢查輸出目錄 !work_dir! 是否存在,不存在就建立...
  23.         if not exist !move_path!\NUL (
  24.             mkdir !move_path!
  25.         )
  26.         ren %%f !new_fname!
  27.         move !new_fname! !move_path!
  28.     )
  29.     cd ..
  30. )
  31.  
  32. popd
  33. endlocal
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement