Länge (Dauer) einer MP3-Datei ermitteln In Verbindung mit dem Windows Media-Player lässt sich die Spieldauer einer MP3-Datei ganz leicht ermitteln.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  36.545
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 52 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

In einem unserer vorigen Tipps haben wir Ihnen gezeigt, wie man bestimmte Informationen einer MP3-Datei auslesen kann (ID3-Tag). Leider verbirgt sich hinter diesen Infos nicht auch die Spieldauer der MP3-Datei. Diese lässt sich jedoch ganz leicht in Verbindung mit dem Windows Media-Player auslesen.

' MP3-Datei festlegen
MediaPlayer1.Filename = "c:\test\test.mp3"
 
' Dauer in Sekunden ermitteln
Dim Sekunden As Integer
Sekunden = Int(MediaPlayer1.Duration)

Anmerkung:
Die Eigenschaft Duration gibt die Dauer im Format Sekunden.Millisekunden wieder. Um die Spieldauer nun im Format mm:ss auszugeben, gehen Sie wie folgt vor:

Dim Minuten As Integer
 
Minuten = Int(Sekunden / 60)
Sekunden = Sekunden MOD 60
 
Debug.Print Format$(Minuten, "00") + ":" + _
  Format$(Sekunden, "00")