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

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

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
复制代码