Accessing MP3 ID3 Tags

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

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

Code:

---

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

---

Thanks i'll try this out.

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

All help is appreciated.

Check out this guy:

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

THANKS!!!!!!!!!!

That page has everything I wanted to know.