ExcelVBA:批量更改文件后缀名



Sub rename()
     Dim oldname$,zz$, newname$
     oldname = Dir("c:\*.*")
     Do While oldname <> ""
          zz = Left(oldname, InStr(1, oldname, ".") - 1)
          newname = zz & ".jpg"
         Name "c:\" & oldname As "d:\" & newname
         oldname = Dir
     Loop
 End Sub