|
EXCEL中用VBA更改当前路径下文件名
当前路径下有二种文件格式,lrc和mp3,二种文件格式
如:
陈果 - 沉默是金.lrc
陈果 - 沉默是金.mp3
现在想批量改文件名如下:
沉默是金 - 陈果.lrc
沉默是金 - 陈果.mp3
请老师们帮我写个这样的代码,谢谢老师们了!
- Sub RenameMusicFile()
- Dim pth$, fn$, extension$, newfilename$, tmp
- pth = ThisWorkbook.Path & ""
- fn = Dir(pth & "*.*")
- Do Until Len(fn) = 0
- extension = Mid(fn, InStrRev(fn, "."))
- Select Case extension
- Case ".lrc", ".mp3"
- tmp = Split(Replace(fn, extension, ""), " - ")
- If UBound(tmp) = 1 Then
- newfilename = tmp(1) & " - " & tmp(0) & extension
- Name pth & fn As pth & newfilename
- End If
- End Select
- fn = Dir
- Loop
- End Sub
复制代码
|
|