Public Function GetMP3Length( _
  ByVal strFileName As String) As Long
 
  Dim strBuffer As String
  Dim lRet As Long
  Dim sReturn As String
 
  ' Da die mciSendString Funktion mit langen Dateinamen
  ' nicht korrekt arbeitet, muss zuvor der kurze
  ' 8.3 Dateiname der MP3-Datei ermittelt werden.
  strBuffer = Space$(255)
  lRet = GetShortPathName(strFileName, strBuffer, Len(strBuffer))
 
  If lRet <> 0 Then
    strFileName = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
  End If
 
  ' MP3-Datei öffnen
  mciSendString "open " & strFileName & _
    " type MPEGVideo alias mp3audio", 0, 0, 0
 
  ' Länge der Datei in Millisekunden auslesen
  sReturn = Space$(256)
  lRet = mciSendString("status mp3audio length", _
    sReturn, Len(sReturn), 0&)
 
  ' MP3-Datei schliessen
  mciSendString "close mp3audio", 0, 0, 0
 
  GetMP3Length = Val(sReturn)
End Function

 GetMP3Length = Val(sReturn)

 GetMP3Length = Val(lRet)

LG
Plumber44