VBS批量修改文件名

dim file_path,prefix_name,suffix_name,repeat_name,repeat_edit

file_path = "C:\Documents and Settings\Administrator\桌面\pic"\'目标文件夹的路径

prefix_name = ""
suffix_name = ""
repeat_name = ""
repeat_edit = ""

\'-----文件操作开始
set fso = CreateObject("Scripting.FileSystemObject")
set rfd = fso.getfolder(file_path)
set fs = rfd.files

if prefix_name <> "" then\'批量加前缀
 for each f in fs
  f.name = prefix_name&f.name
 next
end if

if suffix_name <> "" then\'批量加后缀
 for each f in fs
  name = Mid(f.name,1,InstrRev(f.name,".")-1)
  format = Mid(f.name,InstrRev(f.name,"."))
  f.name = name & suffix_name & format
 next
end if

if repeat_name <> "" then\'批量删除相同字符
 for each f in fs
  On Error Resume Next
  f.name = Replace(f.name,repeat_name,repeat_edit)
 next
end if
\'-----文件操作结束

set fso = nothing\'释放内存
MsgBox("完成！")