RE:Tags de MP3 (id3v1 y id3v2)
Yo estuve proobando con esto, fijate si te sirve como ejemplo.
En un módulo pegar esto:
Option Explicit
Public Type ID3Tag
Header As String * 3
SongTitle As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 30
Genre As Byte
End Type
Public Function GetID3Tag(FileName As String, Tag As ID3Tag) _
As Boolean
On Error GoTo GetID3TagError
Dim TempTag As ID3Tag
Dim FileNum As Long
If Dir(FileName) = "" Then
GetID3Tag = False
Exit Function
End If
FileNum = FreeFile
Open FileName For Binary As FileNum
Get FileNum, LOF(1) - 127, TempTag
Close FileNum
If TempTag.Header <> "TAG" Then
GetID3Tag = False
Else
Tag = TempTag
GetID3Tag = True
End If
Exit Function
GetID3TagError:
Close FileNum
GetID3Tag = False
End Function
Llamar la función así:
Dim idtg As ID3Tag
Dim res As Boolean
res = GetID3Tag(Text1.Text, idtg) 'en text1.text poner nombre del mp3 ej. canción.mp3 string
' si res vuelve true leer las props de idtg
a = idtg.Header
b = idtg.SongTitle
c = idtg.Artist
d = idtg.Album
e = idtg.Year
f = idtg.Comment
g = idtg.Genre