ATT: MELISSA & Everyone else - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

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

MP3Play1.mmStop
x.DialogTitle = "Load mp3/wma-file"
x.InitDir = "d:Mp3"
x.Filter = "mp3/wma-files/M3u|*.mp3;*.wma;*.m3u"
x.FileName = ".mp3"
x.ShowOpen
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.
Input #1, ListElement ' Read data into two variables.
If Left$(ListElement, 8) <> "#EXTINF:" Then
MP3Play1.FileName = ListElement
End If
Loop
Close #1 ' Close file
Else
If x.FileName <> "" Then MP3Play1.FileName = x.FileName
End If



Sign In or Register to comment.