Utilisateur anonyme
-
18 nov. 2019 à 03:10
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
20 déc. 2019 à 21:39
Bonjour, j'ai l'erreur 553 (Nom de fichier non autorisé) sur :
Using requestStream As Stream = request.GetRequestStream()
J'ai ajouté la ligne car je pensais que cela venait de la sécurité.
System.Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12
Merci pour votre aide.
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Module Module1
Public Sub Main()
System.Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12
Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://00.000.00.00/httpdocs/Cloud"), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = New NetworkCredential("...", "...")
Dim fileContents As Byte()
If IO.File.Exists(Application.StartupPath & "\testfile.txt") = False Then
MsgBox("Erreur")
End If
Using sourceStream As StreamReader = New StreamReader(Application.StartupPath & "\testfile.txt")
fileContents = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
End Using
request.ContentLength = fileContents.Length
Using requestStream As Stream = request.GetRequestStream() 'Erreur 553
requestStream.Write(fileContents, 0, fileContents.Length)
End Using
Using response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
Console.WriteLine($"Upload File Complete, status {response.StatusDescription}")
End Using
End Sub
End Module