Accessing MP3 ID3 Tags

[Sven007]

Does anyone know how to access the ID3 tags? I have been trying to do this for a while off and on but I can't seem to pull the right info from the .mp3 file.

Thanks

[filburt1]

See http://www.activex.com. There are tons of them.

[Wak]

Option Explicit
Private Type TagInfo
    Tag As String * 3
    Songname As String * 30
    artist As String * 30
    album As String * 30
    year As String * 4
    comment As String * 30
    genre As String * 1
End Type

Private CurrentTag As TagInfo

Public Function GetTagInfo(Filename As String) As String
    
    Open Filename For Binary As #1
    With CurrentTag
        Get #1, FileLen(Filename) - 127, .Tag
        If Not .Tag = "TAG" Then
            GetTagInfo = Filename
            Close #1
            Exit Function
        End If
        Get #1, , .Songname
        Get #1, , .artist
        Get #1, , .album
        Get #1, , .year
        Get #1, , .comment
        Get #1, , .genre
        Close #1
    
         GetTagInfo = RTrim(.artist) & " - " & RTrim(.Songname) & _
            " - " & RTrim(.year)
    
        End With
End Function

[Sven007]

Thanks i'll try this out.

[Sven007]

Ok that works for getting the tags. Does anyone know how I can save tag information to a mp3 file??

All help is appreciated.

[RyeBread]

Check out this guy:

http://home12.inet.tele.dk/mkaratha/

[Sven007]

THANKS!!!!!!!!!!

That page has everything I wanted to know.