[已解决]BAT脚本批量修改文件问题

xjhbbs

请教大神，我写了个批量修改文件在用的时候发现遇到转换后有重名就会转换不成功，怎么实现自动重命名？这是我现在的代码

1. @echo off
   
2. for /f "delims=" %%i in ('dir /b /a-d /s "*.docx"') do ren "%%i" "%%~ni.doc"
   
3. pause

复制代码

newswan

1. @echo off
   
2. setlocal enableDelayedExpansion
   
3. 
   
4. 
   
5. for /f "delims=" %%i in ('dir /b /a-d /s "*.docx"') do (
   
6.     call :f1 %%i
   
7. )
   
8. goto :END
   
9. 
   
10. :f1
    
11. set filename=%~n1
    
12. :loop
    
13. if exist "!filename!.doc" (
    
14.     set /a filename+=1
    
15.     goto :loop
    
16. )
    
17. ren "%1" "!filename!.doc"
    
18. goto :eof
    
19. 
    
20. :END
    

复制代码

xjhbbs

回复 2# newswan

运行了没有反应大神，也没有转换成功！

cutebe

1. for /f "delims=" %%i in ('dir /b/a-d/s *.docx')do if exist "%%~dpni.doc" (ren "%%i" "%%~ni1.doc")else ren "%%i" "%%~ni.doc"
   

复制代码

newswan

1. @echo off
   
2. setlocal enableDelayedExpansion
   
3. 
   
4. 
   
5. for /f "delims=" %%i in ('dir /b /s "*.docx"') do (
   
6.     call :f1 "%%i"
   
7. )
   
8. goto :END
   
9. 
   
10. :f1
    
11. set filename=%~n1
    
12. :loop
    
13. if exist "%~dp1!filename!.doc" (
    
14.     set /a filename+=1
    
15.     goto :loop
    
16. )
    
17. ren %1 %filename%.doc
    
18. goto :eof
    
19. 
    
20. :END
    

复制代码

子目录，没注意你那里有 /s 参数

xjhbbs

回复 4# cutebe

谢谢谢谢！

xjhbbs

回复 5# newswan


好的，可以了，谢谢

Batcher

回复 1# xjhbbs


参考：
https://mp.weixin.qq.com/s/_1qzhObTSbc6HRpJy4onhQ