shazammp3 activex komponent

kan du ikke bruge dette (dette skulle virke ifølge shazam):
Private Function ReadInformation(Filename As String) As Boolean
  Dim oMP3File As ShazamMP3.cMP3File

  On Error Resume Next

  Set oMP3File = New ShazamMP3.cMP3File
  If oMP3File.ReadFile(Filename) Then
    If oMP3File.HasMPEG Then
      Call MsgBox("Duration (in seconds): " & oMP3File.MPEGHeader.Duration)
    End If
    If oMP3File.HasID3Tag Then
      Call MsgBox("Title: " & oMP3File.ID3Tags.Title)
    End If
    ReadInformation = True
  Else
    ReadInformation = False
  End If
End Function

hmmm jeg kan sku ik lige gennemskue hvordanjeg får den til at checke et helt dir eheheh

nå men jeg lukker det sgu igen