Public Function MP3_ReadID3v1(ByVal sFile As String) As id3v1
  Dim F As Integer
  Dim UDT_MP3 As id3v1
  On Error GoTo err:
 
  F = FreeFile
  Open sFile For Binary As #F
  Seek #F, LOF(F) - Len(UDT_MP3) + 1
  Get #F, , UDT_MP3
  Close #F
 
  If UDT_MP3.TAG = "TAG" Then
    ' "TAG" vorhanden?
    MP3_ReadID3v1 = UDT_MP3
  End If
 
 
Exit Function
err:
End Function

________________________
www.cyberspeed.eu.tt