有米有什么方法可以批量修改图片文件名称？

美人计

我有数百张产品图片，图片名称本应该跟货号一致的，但由于前期工作不完善，所有的产品图片名称都比货号少了一个英文字母“A”，“A”是在货号的第一个字母。
如题，有没有什么方法，可以快速批量的把所有图片名称都加一个首字母“A”呢？

987654321

未测试
仅供参考!

Sub 批量修改文件名()
Dim mypath As String, myfilename As String
Dim oldname As String, newname As String
Dim i As Long
mypath = ThisWorkbook.Path & "\test\"  '指定文件夹
myfilename = Dir(mypath)
i = 0
Do While Len(myfilename) > 0
  oldname = mypath & myfilename '原文件名
  newname = mypath & i & "A"&myfilename '新文件名
  Name oldname As newname
  myfilename = Dir()
  i = i + 1
  Loop
  MsgBox i & "个文件被更名!"
End Sub

clover4-4

要改的图片是插入在EXCEL文件里的还是放在文件夹里的？

dsp5000

参考这个帖子
http://club.excelhome.net/viewth ... hlight=%B8%C4%C3%FB

美人计

谢谢大家
要改的图片是在文件夹里的
我先研究下4楼的建议

vnppfcr000

文件夹里批量改文件名不难吧，以前很低版本的Acdsee都能轻易实现。