Discussion :

[Invité]

Bonjour à tous,

Je suis en train de pas mal galérer sur un problème que l'on m'a posé au bureau. Je dois réaliser une application .NET qui dépose un fichier sur un serveur FTPS ou FTPES.

Actuellement j'ai un serveur FTPES de test à ma disposition et lorsque je lance ce code :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Shared Function ValidateServerCertificate(ByVal sender As Object, ByVal certificate As X509Certificate2, ByVal chain As X509Chain, ByVal sslPolicyErrors__1 As SslPolicyErrors) As Boolean     
    Return True
End Function
 
 
Public Shared Sub Upload(ByVal fileName As String, ByVal userFTP As String, ByVal passwordFTP As String, ByVal adresseFTP As String)
        Dim ftpServerIP As String = adresseFTP
        Dim ftpUserID As String = userFTP
        Dim ftpPassword As String = passwordFTP
 
        'file name of local file
        Dim fileInf As New FileInfo(fileName)
        Dim reqFTP As FtpWebRequest
 
        'Create FtpWebRequest object from the Uri
        reqFTP = DirectCast(FtpWebRequest.Create(New Uri(("ftp://" & ftpServerIP & "/") + fileInf.Name)), FtpWebRequest)
 
        'Provide WebPermission Credintials
        reqFTP.Credentials = New NetworkCredential(ftpUserID, ftpPassword)
        'By default KeepAlive is true, control connection is kept alive
        reqFTP.KeepAlive = True
 
        'Data transfer type.
        reqFTP.UseBinary = False
 
        'Enable the SSL
        reqFTP.EnableSsl = True
 
        'passive mode on
        reqFTP.UsePassive = True
 
        'Set the proxy to nothing
        reqFTP.Proxy = Nothing
 
        If reqFTP.EnableSsl = True Then
            ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateServerCertificate)
        End If
 
        'Partie Test
        reqFTP.Method = WebRequestMethods.Ftp.ListDirectory
        Dim ResponsFTP As FtpWebResponse = reqFTP.GetResponse
 
end sub

Ca plante sur cette ligne là => Dim ResponsFTP As FtpWebResponse = reqFTP.GetResponse, il m'envoie une erreur

Le serveur distant a retourné une erreur : (534) 534 Fallback to [C]

Je me dis que c'est peut être parce que uniquement les serveurs FTPS sont gérés et non les serveurs FTPES. Avez déjà eu ce problème, si oui comment l'avez vous résolu ? Sinon avez vous une idée ?

Merci

Hugues Dehen.