CodeItBetter Programming Another VB Programming Blog

'MultiMedia - How to Get MP3 file Tag info

Option Explicit
 
Private Sub Form_Load()
    Dim fNum As Integer
    Dim sTagIdent As String * 3
    Dim sTitle As String * 30
    Dim sArtist As String * 30
    Dim sAlbum As String * 30
    Dim sYear As String * 4
    Dim sComment As String * 30
    fNum = FreeFile
    Open "C:\TestFile.mp3" For Binary As fNum
    Seek #fNum, LOF(fNum) - 127
    Get #fNum, , sTagIdent
    If sTagIdent = "TAG" Then
        Get #fNum, , sTitle
        Get #fNum, , sArtist
        Get #fNum, , sAlbum
        Get #fNum, , sYear
        Get #fNum, , sComment
    End If
    Close #fNum
    MsgBox sTitle & "," & sArtist & "," & sAlbum & "," & sYear & "," & sComment
End Sub