I have written/borrowed some code from a small mp3 player program i wanted to make it also be able to read M3u's which are winamps playlists Or make my own extention and someway for it to recognise the playlist : here is a lil piece of my code
Private Sub playlist(index As Integer)
x.FileName = "1.mp3"
MP3Play1.FileName = x.FileName
Private Sub functions(index As Integer)
Select Case index
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.mp3" Then
If x.FileName <> "" Then MP3Play1.FileName = x.FileName
0 · ·