| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following function reads summary information stored in an MP3 file: \par \par Option Explicit \par \par Public Type MP3Info \par Tag As String * 3 \par Songname As String * 30 \par Artist As String * 30 \par Album As String * 30 \par Year As String * 4 \par Comment As String * 30 \par Genre As String * 1 \par End Type \par \par \par 'Purpose : Returns a type containing information about an MP3 file \par 'Inputs : sFileName The path and file name of the MP3 \par 'Outputs : Returns a type containing information about an MP3 file \par 'Author : Andrew Baker \par 'Date : 19/Sep/2001 15:50 \par \par Function MP3GetInfo(sFileName As String) As MP3Info \par Dim sTemp As String, iFreeFile As Integer \par \par On Error GoTo ErrFailed \par iFreeFile = FreeFile \par Open sFileName For Binary As iFreeFile \par \par With MP3GetInfo \par Get #1, FileLen(sFileName) - 127, .Tag \par If Not .Tag = "TAG" Then \par Debug.Print "No tag for " & sFileName \par Else \par Get #1, , .Songname \par Get #1, , .Artist \par Get #1, , .Album \par Get #1, , .Year \par Get #1, , .Comment \par Get #1, , .Genre \par End If \par End With \par Close iFreeFile \par \par Exit Function \par \par ErrFailed: \par Debug.Print "Error in MP3GetInfo: " & Err.Description \par Close iFreeFile \par End Function \par } |
Returning information on an MP3 file |
India web developer web development India | India web development company India ecommerce web developer