zqz0012005

'只支持WMPlayer能播放的文件

modifyMp3Tags "D:\桌面\俞静-红豆红.mp3"

sub modifyMp3Tags(file)
set wmp = CreateObject("WMPlayer.ocx")
set oMedia = wmp.newMedia(file)
oMedia.setItemInfo "author", "作者"
oMedia.setItemInfo "title", "标题"
oMedia.setItemInfo "WM/AlbumTitle", "专辑标题"
oMedia.setItemInfo "WM/Genre", "流派"
oMedia.setItemInfo "WM/Year", "发行年"
'oMedia.setItemInfo "WM/TrackNumber", number    '音轨只能是数字
oMedia.setItemInfo "WM/Lyrics", "歌词"
oMedia.setItemInfo "Description", "备注"
set wmp = Nothing
end sub
复制代码