求助批处理~我有一堆图片，需要批量改名

满堆星糖

3026-1995-002-0001-0001
3026-1996-002-0001-0002
3026-1997-002-0001-0003
求助，我现在有堆图片，它们命名是这样的，有没有办法，一键把中间的-002-，改成-008-。
另外我这些图片不是放在一个文件夹里的，是按年度放在了很多个文件夹里，有没有可能让我在文件夹外面一键就能改名。

jyswjjgdwtdtj

1. 
   
2. set fs = CreateObject("Scripting.FileSystemObject")
   
3. set oFolder = fs.GetFile(wscript.scriptfullname).parentfolder
   
4. t ofolder
   
5. sub t(folder)
   
6. for each i in folder.files
   
7. if i.name<>replace(i.name,"-002-","-008-") then
   
8. i.name=replace(i.name,"-002-","-008-")
   
9. end if
   
10. next
    
11. for each i in folder.Subfolders
    
12. t i
    
13. next
    
14. end sub
    

复制代码

保存为vbs文件 并放置在你要修改的文件所在文件夹的任意父文件夹

microsoft_yaw

1. @echo off & chcp 65001>nul & setlocal enabledelayedexpansion
   
2. 
   
3. set "o_str=-002-"
   
4. set "n_str=-008-"
   
5. set "folder_path=待处理的文件夹路径"
   
6. 
   
7. for /f "delims=" %%a in ('dir /a-d /b /s "!folder_path!"') do (
   
8.         set "file_n=%%~na"
   
9.         if "!file_n!" neq "!file_n:%o_str%=!" (
   
10.                 set /a "count+=1" & set "n_file_n=!file_n:%o_str%=%n_str%!%%~xa"
    
11.                 ren "%%a" "!n_file_n!" && set /a "file_s+=1" || set /a "file_f+=1"
    
12.         )
    
13. )
    
14. 
    
15. echo.
    
16. echo file all count : !count!
    
17. echo rename file success count : !file_s!
    
18. echo rename file failure count : !file_f!
    
19. echo.
    
20. pause

复制代码

满堆星糖

回复 2# jyswjjgdwtdtj


    哇塞，有用，一下就改好了，太感谢了

满堆星糖

回复 3# microsoft_yaw


感谢

aloha20200628

回复 1# 满堆星糖

当前目录及其各级子目录中名为 '*-002-*.jpg' 的图片文件被更名为 '*-008-*.jpg' （假设源文件名仅有一个 '-002-' 字段）...

1. 
   
2. @echo off &setlocal enabledelayedexpansion
   
3. for /f "delims=" %%F in ('dir /b/s *-002-*.jpg') do set "nF=%%~nF" &ren "%%F" "!nF:-002-=-008-!%%~xF"
   
4. pause&exit/b
   

复制代码