[分享]批处理移动多个文件并给重名文件添加后缀

Batcher

【问题描述】

请教一下大家：
就是我在D盘有很多文件夹，文件夹里有很分散的txt文档和word文档，我想把它们统一移动到F盘，如果出现文件名字一样的 1.txt 或者 2.xls的文件 自动重命名为1（0）.txt，不管怎么重命名，只要不被替换或者覆盖就行

1. @echo off
   
2. for /r %%a in (*.txt *.exl *.mkv *.iso ') do set n=0&call:checkfile "%%~a"
   
3. pause&exit
   
4. goto :eof
   
5. :checkfile
   
6. if not exist "D:\新建文件\1\%~n1%n%%~x1" (
   
7.     move "%~1" "E:\新建文件\2\%~n1%n%%~x1"
   
8. ) else (
   
9. set/a n+=1
   
10. goto checkfile
    
11. )

复制代码

帮我看看哪里不对

Batcher

for /r %%a in (*.txt *.exl *.mkv *.iso ') 这里多了一个单引号
if not exist 判断的是D盘，但是move的是E盘，这里也不对

【解决方案】

test-1.bat

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "OldFolder=D:\新建文件"
   
4. set "NewFolder=F:\新建文件"
   
5. for /r "%OldFolder%" %%a in (*.txt *.xls *.doc) do (
   
6.     set "n=1"
   
7.     call :CheckFile "%%a"
   
8. )
   
9. pause
   
10. goto :eof
    
11. 
    
12. :CheckFile
    
13. if not exist "%NewFolder%\%~nx1" (
    
14.     move "%~1" "%NewFolder%"
    
15. ) else if not exist "%NewFolder%\%~n1_!n!%~x1" (
    
16.     move "%~1" "%NewFolder%\%~n1_!n!%~x1"
    
17. ) else (
    
18.     set /a n+=1
    
19.     goto :CheckFile
    
20. )

复制代码