CommonDialog1.FileName = ""
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer
CommonDialog1.MaxFileSize = 32000
Me.CommonDialog1.Filter = "mp3 files|*.mp3"
CommonDialog1.ShowOpen
If Me.CommonDialog1.FileName = "" Then
Exit Sub
End If
Dim filearr As Variant
filearr = Split(CommonDialog1.FileName, vbNullChar)
Dim s As String
If UBound(filearr) = 0 Then
s = filearr(0)
Else
Dim i As Long
i = UBound(filearr)
Dim file() As String
ReDim file(i - 1)
Dim j As Long
For j = 1 To i
file(j - 1) = filearr(0) + "\" + filearr(j)
Next
s = Join(file, vbCrLf)
End If
Dim mfile As String
mfile = "c:\mytest.m3u"
Open mfile For Binary As #1
Put #1, , s
Close #1
MediaPlayer1.FileName = mfile
MediaPlayer1.Play