Imports System.ComponentModel
Imports System.IO
Imports System.Net

Public Class playliststore

    Dim listselected As String = ""
    Dim dl As Integer = 0
    Dim utilisateurnom As String = ""
    Dim delplaylistnom As String = ""
    Private Sub playliststore_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If File.Exists(compte & "\photo.png") = True Then
            File.Delete(compte & "\photo.png")
        Else

        End If

        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            ListBox1.BackColor = Color.FromArgb(64, 64, 64)
            ListBox2.BackColor = Color.FromArgb(64, 64, 64)
            ListBox3.BackColor = Color.FromArgb(64, 64, 64)
            ListBox4.BackColor = Color.FromArgb(64, 64, 64)
            ListBox5.BackColor = Color.FromArgb(64, 64, 64)
            ListBox6.BackColor = Color.FromArgb(64, 64, 64)
            ListBox7.BackColor = Color.FromArgb(64, 64, 64)
            ListBox8.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip2.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip3.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip4.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip5.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip6.BackColor = Color.FromArgb(64, 64, 64)
            ContextMenuStrip7.BackColor = Color.FromArgb(64, 64, 64)
            ProgressBar1.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            Label2.BackColor = Color.FromArgb(64, 64, 64)
            Label3.BackColor = Color.FromArgb(64, 64, 64)
            Label4.BackColor = Color.FromArgb(64, 64, 64)
            Label5.BackColor = Color.FromArgb(64, 64, 64)
            Label6.BackColor = Color.FromArgb(64, 64, 64)
            Label7.BackColor = Color.FromArgb(64, 64, 64)
            Button1.ForeColor = Color.White
            ListBox1.ForeColor = Color.White
            ListBox2.ForeColor = Color.White
            ListBox3.ForeColor = Color.White
            ListBox4.ForeColor = Color.White
            ListBox5.ForeColor = Color.White
            ListBox6.ForeColor = Color.White
            ListBox7.ForeColor = Color.White
            ListBox8.ForeColor = Color.White
            ContextMenuStrip1.ForeColor = Color.White
            ContextMenuStrip2.ForeColor = Color.White
            ContextMenuStrip3.ForeColor = Color.White
            ContextMenuStrip4.ForeColor = Color.White
            ContextMenuStrip5.ForeColor = Color.White
            ContextMenuStrip6.ForeColor = Color.White
            ContextMenuStrip7.ForeColor = Color.White
            Label1.ForeColor = Color.White
            Label2.ForeColor = Color.White
            Label3.ForeColor = Color.White
            Label4.ForeColor = Color.White
            Label5.ForeColor = Color.White
            Label6.ForeColor = Color.White
            Label7.ForeColor = Color.White
        ElseIf lines1a(0) = 3 Then
            TéléchargeLaPlaylistSelectionnezToolStripMenuItem.Image = Form1.PictureBox10.Image
            ToolStripMenuItem1.Image = Form1.PictureBox10.Image
            ToolStripMenuItem3.Image = Form1.PictureBox10.Image
            ToolStripMenuItem5.Image = Form1.PictureBox10.Image
            ToolStripMenuItem7.Image = Form1.PictureBox10.Image
            ToolStripMenuItem9.Image = Form1.PictureBox10.Image
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ContextMenuStrip7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ProgressBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ContextMenuStrip7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        Else

        End If

        ListBox7.Items.Clear()
        Try
            If My.Computer.Network.Ping("www.google.com") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
                If vri = 1 Then
                    MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical)
                    Close()
                Else

                End If
            Else
                MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
                Try
                    PictureBox1.Image.Dispose()
                    File.Delete(compte & "\photo.png")
                Catch ex As Exception

                End Try
                Close()
            End If
        Catch ex As Exception
            MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
            Try
                PictureBox1.Image.Dispose()
                File.Delete(compte & "\photo.png")
            Catch ex2 As Exception

            End Try
            Close()
        End Try

        For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
            Dim info As New IO.DirectoryInfo(fichier)
            ListBox7.Items.Add(info.Name)
        Next

        Dim lines1() As String = File.ReadAllLines(comtpeco2)
        If lines1(0) = 0 Then
            TabControl2.TabPages.Remove(TabPage9)
            ftp()
            Exit Sub
        Else
            co()
        End If
    End Sub
    Sub ftp()
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/autre/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox1.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox1.Items.Count = 0 Then
                Label1.Show()
            Else
                Label1.Hide()
            End If
            ftp2()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/autre/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox1.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox1.Items.Count = 0 Then
                Label1.Show()
            Else
                Label1.Hide()
            End If
            ftp2()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub ftp2()
        Try
            ListBox2.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/classique/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox2.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox2.Items.Count = 0 Then
                Label2.Show()
            Else
                Label2.Hide()
            End If
            ftp3()
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            ListBox2.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/classique/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox2.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox2.Items.Count = 0 Then
                Label2.Show()
            Else
                Label2.Hide()
            End If
            ftp3()
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub
    Sub ftp3()
        Try
            ListBox3.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/jazz/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox3.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox3.Items.Count = 0 Then
                Label3.Show()
            Else
                Label3.Hide()
            End If
            ftp4()
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            ListBox3.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/jazz/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox3.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox3.Items.Count = 0 Then
                Label3.Show()
            Else
                Label3.Hide()
            End If
            ftp4()
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub
    Sub ftp4()
        Try
            ListBox4.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/rap/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox4.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox4.Items.Count = 0 Then
                Label4.Show()
            Else
                Label4.Hide()
            End If
            ftp5()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Timer4.Stop()

        Try
            ListBox4.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/rap/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox4.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox4.Items.Count = 0 Then
                Label4.Show()
            Else
                Label4.Hide()
            End If
            ftp5()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub
    Sub ftp5()
        Try
            ListBox5.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/youtube/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox5.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox5.Items.Count = 0 Then
                Label5.Show()
            Else
                Label5.Hide()
            End If
            ftp6()
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Timer5.Stop()
        Try
            ListBox5.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/youtube/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox5.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox5.Items.Count = 0 Then
                Label5.Show()
            Else
                Label5.Hide()
            End If
            ftp6()
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lines1() As String = File.ReadAllLines(comtpeco2)
        If lines1(0) = 0 Then
            MsgBox("Vous devez être connecter à un compte lecteur média", MsgBoxStyle.Exclamation)
        Else
            Form192.ShowDialog()
        End If
    End Sub

    Private Sub TéléchargeLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TéléchargeLaPlaylistSelectionnezToolStripMenuItem.Click
        listselected = ListBox1.SelectedItem
        If ListBox1.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
            listselected = ""
        Else
            If Directory.Exists(dosplaylist & listselected) = True Then
                MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
                listselected = ""
            Else
                dl = 1
                Button1.Enabled = False
                ListBox1.Enabled = False
                ListBox2.Enabled = False
                ListBox3.Enabled = False
                ListBox4.Enabled = False
                ListBox5.Enabled = False
                ListBox6.Enabled = False
                ProgressBar1.Value = 0
                Directory.CreateDirectory(dosplaylist & listselected)
                listselected = ListBox1.SelectedItem
                Try
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/autre/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
                    ProgressBar1.Show()
                Catch ex As Exception
                    MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
                    Directory.Delete(dosplaylist & listselected)
                End Try
            End If
        End If
    End Sub

    Private Sub InformationSurLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationSurLaPlaylistSelectionnezToolStripMenuItem.Click
        If ListBox1.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            payliststorelit = 0
            informationplaylist.ShowDialog()
        End If
    End Sub

    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
        listselected = ListBox2.SelectedItem
        If ListBox2.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
            listselected = ""
        Else
            If Directory.Exists(dosplaylist & listselected) = True Then
                MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
                listselected = ""
            Else
                dl = 1
                Button1.Enabled = False
                ListBox1.Enabled = False
                ListBox2.Enabled = False
                ListBox3.Enabled = False
                ListBox4.Enabled = False
                ListBox5.Enabled = False
                ListBox6.Enabled = False
                ProgressBar1.Value = 0
                Directory.CreateDirectory(dosplaylist & listselected)
                Try
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/classique/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
                    ProgressBar1.Show()
                Catch ex As Exception
                    MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
                    Directory.Delete(dosplaylist & listselected)
                End Try
            End If
        End If
    End Sub

    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
        If ListBox2.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            payliststorelit = 1
            informationplaylist.ShowDialog()
        End If
    End Sub

    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
        listselected = ListBox3.SelectedItem
        If ListBox3.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            If Directory.Exists(dosplaylist & listselected) = True Then
                MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
                listselected = ""
            Else
                dl = 1
                Button1.Enabled = False
                ListBox1.Enabled = False
                ListBox2.Enabled = False
                ListBox3.Enabled = False
                ListBox4.Enabled = False
                ListBox5.Enabled = False
                ListBox6.Enabled = False
                ProgressBar1.Value = 0
                Directory.CreateDirectory(dosplaylist & listselected)
                Try
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/jazz/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
                    ProgressBar1.Show()
                Catch ex As Exception
                    MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
                    Directory.Delete(dosplaylist & listselected)
                End Try
            End If
        End If
    End Sub

    Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
        If ListBox3.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            payliststorelit = 2
            informationplaylist.ShowDialog()
        End If
    End Sub

    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
        listselected = ListBox4.SelectedItem
        If ListBox4.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            If Directory.Exists(dosplaylist & listselected) = True Then
                MsgBox("La playlist:  " & listselected & " existe déjà", MsgBoxStyle.Critical)
                listselected = ""
            Else
                dl = 1
                Button1.Enabled = False
                ListBox1.Enabled = False
                ListBox2.Enabled = False
                ListBox3.Enabled = False
                ListBox4.Enabled = False
                ListBox5.Enabled = False
                ListBox6.Enabled = False
                ProgressBar1.Value = 0
                Directory.CreateDirectory(dosplaylist & listselected)
                Try
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/rap/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
                    ProgressBar1.Show()
                Catch ex As Exception
                    MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
                    Directory.Delete(dosplaylist & listselected)
                End Try
            End If
        End If
    End Sub

    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
        If ListBox4.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            payliststorelit = 3
            informationplaylist.ShowDialog()
        End If
    End Sub

    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
        listselected = ListBox5.SelectedItem
        If ListBox5.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            If Directory.Exists(dosplaylist & listselected) = True Then
                MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
                listselected = ""
            Else
                dl = 1
                Button1.Enabled = False
                ListBox1.Enabled = False
                ListBox2.Enabled = False
                ListBox3.Enabled = False
                ListBox4.Enabled = False
                ListBox5.Enabled = False
                ListBox6.Enabled = False
                ProgressBar1.Value = 0
                Directory.CreateDirectory(dosplaylist & listselected)

                Try
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/youtube/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
                    ProgressBar1.Show()
                Catch ex As Exception
                    MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
                    Directory.Delete(dosplaylist & listselected)
                End Try
            End If
        End If
    End Sub

    Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
        If ListBox5.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            payliststorelit = 4
            informationplaylist.ShowDialog()
        End If
    End Sub
    Sub ftp6()
        Try
            ListBox6.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox6.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox6.Items.Count = 0 Then
                Label6.Show()
            Else
                Label6.Hide()
            End If
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Timer6.Stop()
        Try
            ListBox6.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox6.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox6.Items.Count = 0 Then
                Label6.Show()
            Else
                Label6.Hide()
            End If
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub

    Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
        listselected = ListBox6.SelectedItem
        If ListBox6.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            If Directory.Exists(dosplaylist & listselected) = True Then
                MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
                listselected = ""
            Else
                dl = 1
                Button1.Enabled = False
                ListBox1.Enabled = False
                ListBox2.Enabled = False
                ListBox3.Enabled = False
                ListBox4.Enabled = False
                ListBox5.Enabled = False
                ListBox6.Enabled = False
                ProgressBar1.Value = 0
                Directory.CreateDirectory(dosplaylist & listselected)
                Try
                    téléchargerfr = New WebClient
                    téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/libre de droit/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
                    ProgressBar1.Show()
                Catch ex As Exception
                    MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
                    Directory.Delete(dosplaylist & listselected)
                End Try
            End If
        End If
    End Sub

    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
        If ListBox6.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            payliststorelit = 5
            informationplaylist.ShowDialog()
        End If
    End Sub

    Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Me.Text = "Playlist store - téléchargement de " & listselected & ": " & e.ProgressPercentage & "%"
    End Sub

    Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
        Me.Text = "Playliste store - installation de " & listselected
        ProgressBar1.Value = 0
        ProgressBar1.Style = ProgressBarStyle.Marquee
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Dim WithEvents téléchargerfr As WebClient

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Compression.ZipFile.ExtractToDirectory(dosplaylist & "\" & listselected & ".zip", dosplaylist & "\" & listselected)
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Dim lines1() As String = File.ReadAllLines(comtpeco2)
        If lines1(0) = 0 Then
            Text = "Playliste store"
        Else
            Text = "Playliste store - " & utilisateurnom
        End If
        dl = 0
        ProgressBar1.Style = ProgressBarStyle.Blocks
        ProgressBar1.Value = 100
        File.Delete(dosplaylist & listselected & ".zip")
        Button1.Enabled = True
        ListBox1.Enabled = True
        ListBox2.Enabled = True
        ListBox3.Enabled = True
        ListBox4.Enabled = True
        ListBox5.Enabled = True
        ListBox6.Enabled = True
        ListBox7.Items.Clear()
        For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
            Dim info As New IO.DirectoryInfo(fichier)
            ListBox7.Items.Add(info.Name)
        Next


        MsgBox("La playlist: " & listselected & " a bien été télécharger", MsgBoxStyle.Information)
        listselected = ""
        ProgressBar1.Value = 0
        ProgressBar1.Hide()
    End Sub

    Private Sub playliststore_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If dl = 1 Then
            e.Cancel = True
            MsgBox("Le téléchargement de la playlist: " & listselected & " est en cours", MsgBoxStyle.Exclamation)
        Else
            Dim lines1() As String = File.ReadAllLines(comtpeco2)
            If lines1(0) = 0 Then
                Timer1.Stop()
                Timer2.Stop()
                Timer3.Stop()
                Timer4.Stop()
                Timer5.Stop()
                Timer6.Stop()
                Timer7.Stop()
                Timer8.Stop()
                Timer9.Stop()
                Timer10.Stop()
                Timer11.Stop()
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox4.Items.Clear()
                ListBox5.Items.Clear()
                ListBox6.Items.Clear()
                ListBox7.Items.Clear()
                ListBox8.Items.Clear()
            Else
                Try
                    PictureBox1.Image.Dispose()
                    File.Delete(compte & "\photo.png")
                Catch ex As Exception
                    File.Delete(compte & "\photo.png")
                End Try
                Timer1.Stop()
                Timer2.Stop()
                Timer3.Stop()
                Timer4.Stop()
                Timer5.Stop()
                Timer6.Stop()
                Timer7.Stop()
                Timer8.Stop()
                Timer9.Stop()
                Timer10.Stop()
                Timer11.Stop()
                ListBox1.Items.Clear()
                ListBox2.Items.Clear()
                ListBox3.Items.Clear()
                ListBox4.Items.Clear()
                ListBox5.Items.Clear()
                ListBox6.Items.Clear()
                ListBox7.Items.Clear()
                ListBox8.Items.Clear()
            End If
        End If
    End Sub
    Sub co()
        Dim lines1() As String = File.ReadAllLines(compteco)
        utilisateurnom = lines1(0)


        Try
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & utilisateurnom & "/modo.txt")
            SupprimerLaPlaylistSelectionnezToolStripMenuItem.Visible = True
            SupprimerLaPlaylistSelectionnezToolStripMenuItem1.Visible = True
            SupprimerLaPlaylistSelectionnezToolStripMenuItem2.Visible = True
            SupprimerLaPlaylistSelectionnezToolStripMenuItem3.Visible = True
            SupprimerLaPlaylistSelectionnezToolStripMenuItem4.Visible = True
            SupprimerLaPlaylistSelectionnezToolStripMenuItem5.Visible = True
        Catch ex As Exception

        End Try


        Text = "Playliste store - " & utilisateurnom
        Try
            My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & lines1(0) & "/photo.png", compte & "\photo.png")
            PictureBox1.Image = Image.FromFile(compte & "\photo.png")
            co2()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Timer8.Stop()
        Dim lines1() As String = File.ReadAllLines(compteco)
        Try
            My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & lines1(0) & "/photo.png", compte & "\photo.png")
            PictureBox1.Image = Image.FromFile(compte & "\photo.png")
            co2()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub

    Private Sub SupprimerLaPlaylisteSelectionnezDuStoreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylisteSelectionnezDuStoreToolStripMenuItem.Click
        If ListBox8.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer: " & ListBox8.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                Enabled = False
                delplaylist()
            Else
                MsgBox("Action annuler", MsgBoxStyle.Information)
            End If
        End If

    End Sub
    Sub co2()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(cozip & "\playlist\") = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.DirectoryInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                ftpcompte()
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.DirectoryInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                addplaylistcompte()
            End If

        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub
    Sub addplaylistcompte()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/playlist/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftpcompte()
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Timer10.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/playlist/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftpcompte()
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub
    Sub ftpcompte()
        Try
            ListBox8.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox8.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox8.Items.Count = 0 Then
                Label7.Show()
            Else
                Label7.Hide()
            End If
            ftp()
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        Timer9.Stop()
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(compte & "\playlist\") = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.DirectoryInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                ftpcompte()
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.DirectoryInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                addplaylistcompte()
            End If


        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub

    Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
        Timer11.Stop()
        Try
            ListBox8.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                ListBox8.Items.Add(str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If ListBox8.Items.Count = 0 Then
                Label7.Show()
            Else
                Label7.Hide()
            End If
            ftp()
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub

    Private Sub ImformationDeLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImformationDeLaPlaylistSelectionnezToolStripMenuItem.Click
        If ListBox8.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Form194.ShowDialog()
        End If
    End Sub
    Sub delplaylist()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
            delplaylistnom = vri
            delplaylist3()
        Catch ex As Exception
            Timer12.Start()
        End Try
    End Sub

    Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
        Timer12.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            Dim maj As New WebClient
            Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
            delplaylistnom = vri
            delplaylist3()
        Catch ex As Exception
            Timer12.Start()
        End Try
    End Sub
    Sub delplaylist3()
        Dim lines4() As String = File.ReadAllLines(compteco)
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
        If vri = "" Then
            Timer14.Start()
        Else
            Try
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
                ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                delplaylist5()
            Catch ex As Exception
                MsgBox(ex.ToString)
                Timer14.Start()
            End Try
        End If
    End Sub

    Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
        Timer14.Stop()
        Dim lines4() As String = File.ReadAllLines(compteco)
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
        If vri = "" Then
            Timer14.Start()
        Else
            Try
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
                ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                delplaylist5()
            Catch ex As Exception
                MsgBox(ex.ToString)
                Timer14.Start()
            End Try
        End If
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        Timer15.Stop()
        Dim lines4() As String = File.ReadAllLines(compteco)
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
        If vri = "" Then
            Timer14.Start()
        Else
            Try
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
                ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                delplaylist6()
            Catch ex As Exception
                MsgBox(ex.ToString)
                Timer15.Start()
            End Try
        End If
    End Sub
    Sub delplaylist5()
        Dim lines4() As String = File.ReadAllLines(compteco)
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
        If vri = "" Then
            Timer15.Start()
        Else
            Try
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
                ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                delplaylist6()
            Catch ex As Exception
                MsgBox(ex.ToString)
                Timer15.Start()
            End Try
        End If
    End Sub

    Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
        Timer16.Stop()
        Dim lines4() As String = File.ReadAllLines(compteco)
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
        If vri = "" Then
            Timer16.Start()
        Else
            Try
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
                ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                delplaylist7()
            Catch ex As Exception
                MsgBox(ex.ToString)
                Timer16.Start()
            End Try
        End If
    End Sub
    Sub delplaylist6()
        Dim lines4() As String = File.ReadAllLines(compteco)
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
        If vri = "" Then
            Timer16.Start()
        Else
            Try
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
                ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                delplaylist7()
            Catch ex As Exception
                MsgBox(ex.ToString)
                Timer16.Start()
            End Try
        End If
    End Sub

    Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
        Timer17.Stop()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(delplaylistnom)
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            delplaylist8()
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub
    Sub delplaylist7()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(delplaylistnom)
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            delplaylist8()
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub

    Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
        Timer18.Stop()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist9()
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub
    Sub delplaylist8()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist9()
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub

    Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
        Timer19.Stop()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info2.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist10()
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub
    Sub delplaylist9()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info2.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist10()
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub

    Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
        Timer20.Stop()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist12()
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub
    Sub delplaylist10()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist12()
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
        Timer21.Stop()

        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/")
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            Enabled = True
            MsgBox("La playlist: " & ListBox8.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
            ftpcompte()
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub
    Sub delplaylist11()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/")
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            Enabled = True
            MsgBox("La playlist: " & ListBox8.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
            ftpcompte()
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub

    Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
        Timer22.Stop()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist13()
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub
    Sub delplaylist12()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist13()
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub
    Sub delplaylist13()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist11()
        Catch ex As Exception
            Timer23.Start()
        End Try
    End Sub

    Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
        Timer23.Stop()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            delplaylist11()
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub

    Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem.Click
        If ListBox1.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
        Else
            payliststorelit = 1
            signalezplaylist.ShowDialog()
        End If
    End Sub

    Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem1.Click
        If ListBox2.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
        Else
            payliststorelit = 2
            signalezplaylist.ShowDialog()
        End If
    End Sub

    Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem2.Click
        If ListBox3.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
        Else
            payliststorelit = 3
            signalezplaylist.ShowDialog()
        End If
    End Sub

    Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem3.Click
        If ListBox4.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
        Else
            payliststorelit = 4
            signalezplaylist.ShowDialog()
        End If
    End Sub

    Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem4.Click
        If ListBox5.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
        Else
            payliststorelit = 5
            signalezplaylist.ShowDialog()
        End If
    End Sub

    Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem5.Click
        If ListBox6.SelectedItem = "" Then
            MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
        Else
            payliststorelit = 6
            signalezplaylist.ShowDialog()
        End If
    End Sub

    Private Sub ActualiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem.Click
        actualiser()
    End Sub
    Sub actualiser()
        Timer24.Start()
        Try
            If My.Computer.Network.Ping("www.google.com") = True Then
                Dim lines1() As String = File.ReadAllLines(comtpeco2)
                If lines1(0) = 0 Then
                    ftp()
                Else
                    ftpcompte()
                End If
            Else
                MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Critical)
                Close()
            End If
        Catch ex As Exception
            MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Critical)
            Close()
        End Try
    End Sub

    Private Sub ActualiserToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem1.Click
        actualiser()
    End Sub

    Private Sub ActualiserToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem3.Click
        actualiser()
    End Sub

    Private Sub ActualiserToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem2.Click
        actualiser()
    End Sub

    Private Sub ActualiserToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem4.Click
        actualiser()
    End Sub

    Private Sub ActualiserToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem5.Click
        actualiser()
    End Sub

    Private Sub ListBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
        If e.KeyData = Keys.F5 Then
            actualiser()
        End If
    End Sub

    Private Sub playliststore_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyData = Keys.F5 Then
            actualiser()
        End If
    End Sub

    Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
        Timer24.Stop()
        actualiser()
    End Sub

    Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem.Click
        If ListBox1.SelectedItem = "" Then
            MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox1.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delplayliste1()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delplayliste1()
        My.Computer.Network.DownloadFile(ipsite & "/playlist/autre/" & ListBox1.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
        Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
        File.Delete(dosparamètres & "\infotemps.txt")
        Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/info.txt")
        ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
        Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/musique.txt")
        ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".zip")
        ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/")
        ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse


        Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/cheminplaylist.txt")
        ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
        Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info2.txt")
        ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
        Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info3.txt")
        ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
        Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info4.txt")
        ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
        Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info5.txt")
        ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
        Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/")
        ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse

        MsgBox("la playlist: " & ListBox1.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            mailsuppr.publier = lines1(0)
            mailsuppr.nomfile = ListBox1.SelectedItem
            mailsuppr.typfile = "Playlist"
            mailsuppr.userdladmin = utilisateurnom
            mailsuppr.ShowDialog()
        End If
        ftp()
    End Sub

    Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem1.Click
        If ListBox2.SelectedItem = "" Then
            MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox2.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delplayliste2()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delplayliste2()
        My.Computer.Network.DownloadFile(ipsite & "/playlist/classique/" & ListBox2.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
        Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
        File.Delete(dosparamètres & "\infotemps.txt")
        Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/info.txt")
        ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
        Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/musique.txt")
        ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & ".zip")
        ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/")
        ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse


        Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/cheminplaylist.txt")
        ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
        Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info2.txt")
        ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
        Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info3.txt")
        ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
        Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info4.txt")
        ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
        Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info5.txt")
        ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
        Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/")
        ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse

        MsgBox("la playlist: " & ListBox2.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            mailsuppr.publier = lines1(0)
            mailsuppr.nomfile = ListBox2.SelectedItem
            mailsuppr.typfile = "Playlist"
            mailsuppr.userdladmin = utilisateurnom
            mailsuppr.ShowDialog()
        End If
        ftp()
    End Sub

    Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem2.Click
        If ListBox3.SelectedItem = "" Then
            MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox3.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delplayliste3()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delplayliste3()
        My.Computer.Network.DownloadFile(ipsite & "/playlist/jazz/" & ListBox3.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
        Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
        File.Delete(dosparamètres & "\infotemps.txt")
        Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/info.txt")
        ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
        Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/musique.txt")
        ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/" & ListBox3.SelectedItem & ".zip")
        ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/")
        ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse


        Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/cheminplaylist.txt")
        ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
        Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info2.txt")
        ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
        Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info3.txt")
        ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
        Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info4.txt")
        ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
        Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info5.txt")
        ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
        Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/")
        ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse

        MsgBox("la playlist: " & ListBox3.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            mailsuppr.publier = lines1(0)
            mailsuppr.nomfile = ListBox3.SelectedItem
            mailsuppr.typfile = "Playlist"
            mailsuppr.userdladmin = utilisateurnom
            mailsuppr.ShowDialog()
        End If
        ftp()
    End Sub

    Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem3.Click
        If ListBox4.SelectedItem = "" Then
            MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox4.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delplayliste4()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delplayliste4()
        My.Computer.Network.DownloadFile(ipsite & "/playlist/rap/" & ListBox4.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
        Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
        File.Delete(dosparamètres & "\infotemps.txt")
        Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/info.txt")
        ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
        Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/musique.txt")
        ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/" & ListBox4.SelectedItem & ".zip")
        ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/")
        ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse


        Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/cheminplaylist.txt")
        ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
        Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info2.txt")
        ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
        Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info3.txt")
        ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
        Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info4.txt")
        ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
        Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info5.txt")
        ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
        Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/")
        ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse

        MsgBox("la playlist: " & ListBox4.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            mailsuppr.publier = lines1(0)
            mailsuppr.nomfile = ListBox4.SelectedItem
            mailsuppr.typfile = "Playlist"
            mailsuppr.userdladmin = utilisateurnom
            mailsuppr.ShowDialog()
        End If
        ftp()
    End Sub

    Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem4.Click
        If ListBox5.SelectedItem = "" Then
            MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox5.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delplayliste5()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delplayliste5()
        My.Computer.Network.DownloadFile(ipsite & "/playlist/youtube/" & ListBox5.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
        Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
        File.Delete(dosparamètres & "\infotemps.txt")
        Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/info.txt")
        ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
        Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/musique.txt")
        ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/" & ListBox5.SelectedItem & ".zip")
        ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/")
        ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse


        Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/cheminplaylist.txt")
        ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
        Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info2.txt")
        ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
        Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info3.txt")
        ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
        Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info4.txt")
        ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
        Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info5.txt")
        ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
        Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/")
        ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse

        MsgBox("la playlist: " & ListBox5.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            mailsuppr.publier = lines1(0)
            mailsuppr.nomfile = ListBox5.SelectedItem
            mailsuppr.typfile = "Playlist"
            mailsuppr.userdladmin = utilisateurnom
            mailsuppr.ShowDialog()
        End If
        ftp()
    End Sub

    Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem5.Click
        If ListBox6.SelectedItem = "" Then
            MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox6.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                delplayliste6()
            Else
                MsgBox("action annuler", MsgBoxStyle.Information)
            End If
        End If
    End Sub
    Sub delplayliste6()
        My.Computer.Network.DownloadFile(ipsite & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
        Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
        File.Delete(dosparamètres & "\infotemps.txt")
        Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/info.txt")
        ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
        Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/musique.txt")
        ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
        Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/" & ListBox6.SelectedItem & ".zip")
        ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/")
        ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse


        Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/cheminplaylist.txt")
        ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
        Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info2.txt")
        ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
        Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info3.txt")
        ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
        Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info4.txt")
        ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
        Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info5.txt")
        ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
        Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/")
        ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
        ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse

        MsgBox("la playlist: " & ListBox6.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            mailsuppr.publier = lines1(0)
            mailsuppr.nomfile = ListBox6.SelectedItem
            mailsuppr.typfile = "Playlist"
            mailsuppr.userdladmin = utilisateurnom
            mailsuppr.ShowDialog()
        End If
        ftp()
    End Sub
End Class