好多MP3文件是有一个TAG数据区,在文件的最后128个字节,
第1— 3字节存放’TAG’
第4—33字节存放歌名
第34—63字节存放演唱者名
第64—93字节存放专辑名
第94—97字节存放发行日期
第98—127字节存放说明
第128字节存放校验码
Public Function read_TAG(ByVal Filename As String, _
songname As String, singer As String, special _
As String, ptime As String, explain As String, _
paritybyte As Byte) As Boolean
Dim i As Integer
i = 1
Dim s As String
Open Filename For Binary As #i
s = String(127, " ")
Seek i, LOF(i) - 127
Get i, , s
Close #i
If LCase(Left(s, 3)) <> "tag" Then
read_TAG = False
songname = " ": singer = " ": special = " ": ptime = " ": explain = " ": paritybyte = 0
Exit Function
End If
s = StrConv(StrConv(s, vbFromUnicode), vbUnicode)