Imports System.IO
Imports System.Net
Public Class drive7
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Button1.Text = "Créer: " & TextBox1.Text
    End Sub

    Private Sub drive7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines() As String = File.ReadAllLines(théme)
        If lines(0) = 2 Then
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            Me.BackColor = Color.FromArgb(64, 64, 64)
            Button1.ForeColor = Color.White
            Label1.ForeColor = Color.White
            TextBox1.BackColor = Color.FromArgb(64, 64, 64)
            TextBox1.ForeColor = Color.White
        ElseIf lines(0) = 3 Then
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If


        TextBox1.Clear()
        Button1.Text = "Créer: "
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & Drive.tcon & "/dirve/" & TextBox1.Text), 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()

            Dim sw1 As New StreamWriter(cozip & "index.php")
            sw1.WriteLine("<?php")
            sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
            sw1.WriteLine("?>")
            sw1.Close()

            intedadd()

        Catch ex As Exception
            MsgBox("Une erreur est survenue, ou le dossier existe déjà", MsgBoxStyle.Critical)
            Drive.ftp()
            Close()
        End Try
    End Sub
    Dim WithEvents téléchargerfr As WebClient

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            téléchargerfr = New WebClient
            téléchargerfr.UploadFileTaskAsync(ipserver & "/Utilisateur/" & Drive.tcon & "/dirve/" & TextBox1.Text & "/index.php", cozip & "index.php")
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub intedadd()
        Try
            téléchargerfr = New WebClient
            téléchargerfr.UploadFileTaskAsync(ipserver & "/Utilisateur/" & Drive.tcon & "/dirve/" & TextBox1.Text & "/index.php", cozip & "/index.php")
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
        File.Delete(cozip & "/index.php")
        MsgBox("Le dossier: " & TextBox1.Text & " a bien été créer", MsgBoxStyle.Information)
        Drive.ftp()
        Close()
    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "." Then
            e.Handled = True
        End If
    End Sub
End Class