EnableExplicit

Procedure GetAudioFileLength(Path$)
  Protected AudioFileLength$ = Space(256)
 
  ;Audio-Datei öffnen
  mciSendString_("open " + Chr(34) + Path$ + Chr(34) + " type MPEGVideo alias mp3audio", #Null, #Null, #Null)
  ;Länge der Audio-Datei ermitteln, Wert wird in Millisekunden als String zurückgegeben
  mciSendString_("status mp3audio length", @AudioFileLength$, 256, #Null)
  ;Geöffnete Audio-Datei schließen
  mciSendString_("close mp3audio", #Null, #Null, #Null)
 
  ProcedureReturn Val(AudioFileLength$)/1000
EndProcedure

MessageRequester("","Länge der Audio-Datei in Sekunden: "+Str(GetAudioFileLength("C:\...\Datei.mp3")),0);Formate getestet: wav, wma, mp3