MusicBoxCenter

'All variants script
'AutoScaleAll
W = 100%x
H = 100%y
Entete1.Left = 5
Entete1.Width = W - 10
Entete1.Height = H/17
Record.Top = Entete1.bottom + 10
Record.Left = 5
Record.Width = W - 10
Record.Height = H/22
FileList.Top = Record.bottom + 10
FileList.Left = 5
FileList.Width = W/2 - 15
FileList.Height = H/16
HideList.Top = Record.bottom + 10
HideList.Left = FileList.Right + 5
HideList.Width = W/2 - 15
HideList.Height = H/16
JukeBox.Top = FileList.Bottom + 10
JukeBox.Left = 5
JukeBox.Width = W - 20
JukeBox.Height = H/2.5
MusicTitle.Top = JukeBox.Bottom
MusicTitle.Left = 5
MusicTitle.Width = W-10
MusicTitle.Height = H/14
CLV1.Top = MusicTitle.Bottom + 20
CLV1.Height = H/2.8
CLV1.Bottom = H
CLV1.Width = W
CLV1.Left = 0

Private Sub PlayAllPlayList
    Msgbox2Async("Do you really want to listen to the entire recorded list?     Please note that if you have saved several dozen music files in the folder created for this application, you will have to wait a few seconds while the PlayList loads.", "Listen to the list", "Yes", "", "No", Null, True)
    Wait For Msgbox_Result (Result As Int)
    If Result=DialogResponse.POSITIVE Then
        Player1.Release
        Player1.Initialize("Player")
        Dim Sources As List
        Sources.Initialize
        For nf = 0 To ListSongName.Size -1
            SongName = ListSongName.Get(nf)
            Storage.FindFile(Storage.Root,SongName)
            If File.Exists(File.DirInternal, SongName) = False Then
                Dim iStream As InputStream, oStream As OutputStream
                Dim oFile As ExternalFile
                oFile = Storage.FindFileOrCreate(Storage.Root, SongName)
                If oFile.IsInitialized Then
                    iStream = Storage.OpenInputStream(oFile)
                    oStream = File.OpenOutput(File.DirInternal, SongName, False)
                    File.copy2(iStream, oStream)
                    iStream.Close
                    oStream.Close
                End If
            End If
            Sources.Add(Player1.CreateFileSource(File.DirInternal,SongName))
        Next
        Player1.Prepare(Player1.CreateListSource(Sources))
        JukeBox.Player = Player1
        Player1.Play
        MusicTitle.Text = "You are currently listening to the entire" & CRLF & "PLAYLIST saved in the folder you created !"
    End If
End Sub