|
|
发表于 2009-11-7 19:08:53
|
显示全部楼层
vbs
- '只支持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
复制代码 |
评分
-
查看全部评分
|