Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Jul 20, 2001



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Extract the ID3 Tag From an MP3 File

Here is a function for extracting the ID3 tag from a MP3 file. Add the following lines of code into a Module:
Public Type ID3Data
    Tag As String * 3
    Title As String * 30
    Artist As String * 30
    Album As String * 30
    Year As String * 4
    Notes As String * 30
    Genre As String * 1
End Type

Public Function ExtractID3(FileName As String) 
As ID3Data
On Error GoTo ExtractID3_Err
Dim udtID3 As ID3Data
Dim intFileNo As Integer
    intFileNo = FreeFile()
    Open FileName For Binary As #intFileNo
    Get #intFileNo, LOF(intFileNo) - 127, udtID3
    If udtID3.Tag = 
Andreas Hillqvist
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date