Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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.

 

 

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