[技术讨论] [分享]VBS批量修改mp3音频文件的属性

DAIC

用iTools往iPhone里面导入了一批mp3文件，手机里面显示的都是Untitled，所以修改了以下三个属性，解决手机里面的显示问题：

• 标题
  
• 参与创作的艺术家
  
• 唱片集
  

folderName = "D:\济公传\01优酷60回\"
strAlbum = "济公传01优酷60回"
strAuthor = "郭德纲"

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFiles=objFSO.GetFolder(folderName).Files
For Each objFile In objFiles
    modifyMp3Tags folderName, objFile.Name
Next

Sub modifyMp3Tags(filePath, fileName)
    WScript.Echo filePath & fileName
    Set objWMP = CreateObject("WMPlayer.ocx")
    Set objMedia = objWMP.newMedia(filePath & fileName)
    objMedia.setItemInfo "Title", objFSO.GetBaseName(fileName)
    objMedia.setItemInfo "Author", strAuthor
    objMedia.setItemInfo "WM/AlbumTitle", strAlbum
End Sub
复制代码

CrLf

用 iPhone 的壕，快发红包