请帮着修改BAT代码拖放文件夹修改文件名

dzwind

请各位大师帮忙看看以下的代码，我用AI做的，但执行不了，提示找不到文件。谢谢。
要求1、建好BAT文件后，以拖动文件夹至该BAT程序上执行
2、程序会将目录下的所有的docdocx文件改名，文件名称起以保留前2个字符，后面以时间的文件名。
想建的BAT内容如下：

1. set /a folder=%1
   
2. pushd %folder%
   
3. for /r. %%f in (*.doc *.docx) do (
   
4.     set filename=%%~nf
   
5.     set newfilename=!filename:~0,2!-%date%.%ext!
   
6.     ren "%%f" "%newfilename%"
   
7. )
   
8. popd
   
9. echo 改名完成!

复制代码

aloha20200628

回复 1# dzwind

订正代码如下
特别注意》被处理的目录/文件夹的路径文件名中如没有空格但包含 ^ 字符，将会导致拖入批处理脚本文件时出错 所以建议路径文件名不要包含 ^ 字符

1. 
   
2. @echo off
   
3. if "%~1"=="" exit/b
   
4. pushd "%~1" &set "d=%date:/=-%"
   
5. for /r %%F in (*.doc *.docx) do (
   
6.         set "nF=%%~nF" &setlocal enabledelayedexpansion
   
7.         ren "%%~F" "!nF:~,2!-%d%%%~xF" &endlocal
   
8. )
   
9. popd &pause &exit/b
   

复制代码

ShowCode

回复 1# dzwind

1. @echo off
   
2. if "%~1" == "" exit /b
   
3. if not exist "%~1" exit /b
   
4. cd /d "%~1"
   
5. set "Today=%date:/=-%"
   
6. for /r %%i in (*.doc) do (
   
7.     set "BaseName=%%~ni"
   
8.     setlocal enabledelayedexpansion
   
9.     ren "%%~i" "!BaseName:~,2!-%Today%%%~xi"
   
10.     endlocal
    
11. )

复制代码

dzwind

谢谢楼上各位大师的无私帮助

Five66

保存为ansi编码的bat
文件夹名最好不要包含^&%之类的特殊字符

1. 
   
2. @echo off
   
3. 
   
4. if "%~1" == "%cd%" echo error&pause&exit/b
   
5. set bbb=""%*
   
6. set bbb=%bbb:~2%
   
7. 
   
8. setlocal enabledelayedexpansion
   
9. if exist "!bbb!" (
   
10. cd /d !bbb!
    
11. if errorlevel 1 endlocal&pause&exit/b
    
12. for %%i in ("!cd!") do endlocal&cd /d "%%~i"
    
13. ) else endlocal&echo error&pause&exit/b
    
14. 
    
15. set "ddd=%date:/=-%"
    
16. for /r %%i in (*.doc) do (
    
17. set name=%%~ni
    
18. set ext=%%~xi
    
19. setlocal enabledelayedexpansion
    
20. rename "!name!!ext!" "!name:~,2!-%ddd%!ext!"
    
21. endlocal
    
22. )
    
23. 
    
24. echo done&pause
    

复制代码

77七

1. @echo off
   
2. for /f "delims=" %%a in ('powershell -c "'{0:yyyyMMdd_hhmmss}' -f (get-date)"') do (
   
3.         for /r "%~1" %%i in (*.doc?) do (
   
4.                 set f=%%i
   
5.                 set n=%%~nxi
   
6.                 setlocal enabledelayedexpansion
   
7.                 ren "!f!" "!n:~0,2!_%%a%%~xi"
   
8.                 endlocal
   
9.         )
   
10. )
    
11. pause

复制代码