Informace MP3 Tagu
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
'Zadejte si své jméno souboru
Open "D:\Internet\Downloads\mp3\bonlife.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 "Název: " & sTitle & Chr(13) & "Autor: " & sArtist & _
Chr(13) & "Album: " & sAlbum & Chr(13) & "Rok: " & sYear & _
Chr(13) & "Poznámka:" & sComment