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("完成!")