1 2 3 4 5 6 7 8 9 10 11 12
| Dim req As FtpWebRequest
Dim res As FtpWebResponse
req = WebRequest.Create("ftp://185.22.110.20/public_html/Account/" & FlatTextBox3.Text & "_Account.php")
Try
res = req.GetResponse()
MsgBox("L'utilisateur existe déjà.!" & vbNewLine & "Veuillez vérifier vos informations.", MsgBoxStyle.Exclamation, "Pseudo incorrect")
Exit Sub
Catch u As WebException
My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\" & FlatTextBox1.Text & "_Account.php")
End Try |