如何读写MP3的各种信息,用VB实现

千千静听就可以啊

这里好像是:http://topic.csdn.net/t/20010525/22/135006.html
太长了所以没有粘过来,希望对你有帮助

发个代码到你邮箱

不用任何软件 在MP3文件上右键 属性 摘要 高级 然后就能改了

'共分2步完成你的问题：
'一、建立一个模块.bas，并复制下面代码
'=====模块代码====
Public Type Mp3tag
Artist As String 'Artist 存储歌手信息
Album As String 'Album 存储唱片专辑信息
Title As String 'Title 存储标题信息
Year As String 'Year 存储年代信息
Comments As String 'Comments 存储备注信息
Genre As Integer 'Genre 存储音乐风格序列
End Type

Public Function GetMp3Tag(FName As String) As Mp3tag
Dim Artist As String
Dim Album As String
Dim Title As String
Dim Year As String
Dim Comments As String
Dim Genre As Integer
If FName = "" Then Exit Function
If Dir(FName) = "" Then Exit Function
Dim FileNum As Integer
FileNum = FreeFi