Rubrik: Multimedia & Sound · Audio | VB-Versionen: VB4, VB5, VB6 | 29.03.01 |
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: | Views: 36.541 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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")