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

DAIC

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

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

1. folderName = "D:\济公传\01优酷60回"
   
2. strAlbum = "济公传01优酷60回"
   
3. strAuthor = "郭德纲"
   
4. 
   
5. Set objFSO=CreateObject("Scripting.FileSystemObject")
   
6. Set objFiles=objFSO.GetFolder(folderName).Files
   
7. For Each objFile In objFiles
   
8.     modifyMp3Tags folderName, objFile.Name
   
9. Next
   
10. 
    
11. Sub modifyMp3Tags(filePath, fileName)
    
12.     WScript.Echo filePath & fileName
    
13.     Set objWMP = CreateObject("WMPlayer.ocx")
    
14.     Set objMedia = objWMP.newMedia(filePath & fileName)
    
15.     objMedia.setItemInfo "Title", objFSO.GetBaseName(fileName)
    
16.     objMedia.setItemInfo "Author", strAuthor
    
17.     objMedia.setItemInfo "WM/AlbumTitle", strAlbum
    
18. End Sub
    

复制代码

CrLf

用 iPhone 的壕，快发红包