Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.
ATT: MELISSA & Everyone else
Hi thanx for your code you gave me tho other day it was really helpful but I have struck a problem it doesn’t read the playlist if it has more than one song lined up in it but if I only have one song in it it plays then stops once the song has completed Can you shed some light on how to make the player read multi songs ( which is what a playlist is anyway =) ) Thanx For Your Help
My playlist: “999.m3u”#EXTM3U
#EXTINF:121,Frente - Bizzare Love Triangle
Frente - Bizzare Love Triangle.mp3
#EXTINF:217,Big Heavy Stuff - White As Snow
Big Heavy Stuff - White As Snow.mp3
My Code to load a file
x.DialogTitle = "Load mp3/wma-file"
x.InitDir = "d:Mp3"
x.Filter = "mp3/wma-files/M3u|*.mp3;*.wma;*.m3u"
x.FileName = ".mp3"
If x.FileName = "999.m3u" Then
Dim ListElement As String
Open "999.M3U" For Input As #1
' Open file for input.
Do While Not EOF(1) ' Loop until end of file.
, ListElement ' Read data into two variables.
If Left$(ListElement, 8) <> "#EXTINF:" Then
MP3Play1.FileName = ListElement
' Close file
If x.FileName <> "" Then MP3Play1.FileName = x.FileName
0 · ·