Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
   If My.Computer.FileSystem.DirectoryExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "LauncherArma") Then
        My.Computer.FileSystem.DeleteDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "LauncherArma", FileIO.DeleteDirectoryOption.DeleteAllContents)
    End If


    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "LauncherArmamodsname.txt") Then
        My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "LauncherArmamodsname.txt")
    End If

    My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "LauncherArma")
    UnRar(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "Addon.rar", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "LauncherArma")
    Dim ligne As String
    My.Computer.Network.DownloadFile("FTP ADDRESS. Hidden for security. Don't worry, the download files works!/modsname.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "LauncherArmamodsname.txt")
    Dim sr As New StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "LauncherArmamodsname.txt")
    While sr.Peek <> -1
        ligne = sr.ReadLine()
        My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "LauncherArma" & ligne, directory & "" & ligne, True)
    End While
    PictureBox1.Visible = True
    FlatButton6.Visible = False
    FlatProgressBar1.Visible = False
    FlatLabel1.Visible = False
    FlatLabel2.Visible = False
    FlatLabel3.Visible = False
End Sub