problème pour poser un fichier sur un ftp

Question

bonjour
Lors de l'execution du programe j'ai une erreur.
 Erreur d'exécution '35754':
 Connexion impossible à l'hote distant

J'ai vérifier mon url user et mot de passe il sont tous bon.
Voici mon code si vous trouver une erreur 

Private Sub CopieParFtp(ByVal source As String, ByVal destination, ByVal login As String, _
                        ByVal motdepasse As String, ByVal url As String)

With Inet1
    .AccessType = icDirect
    .Protocol = icFTP
    .Proxy = Proxy
    .url = "ftp://" & login & ":" & motdepasse & "@" & url
    .Execute , "PUT " & source & " " & destination
    While .StillExecuting
        DoEvents
    Wend
    .Cancel
End With

End Sub

source = "d:	est.pdf"
destination = "test.pdf"

Merci

cs_metos · Answer

essaie :
Do While Inet1.StillExecuting = True 'boucle pendant le traitement de inet
On Error Resume Next
DoEvents
Loop

AccessType = icDirect
.Protocol = icFTP
.Proxy = Proxy

 icDirect veut dire que tu passe pas par un proxy, c'est possible que le probème soit là.

Problème pour poser un fichier sur un ftp

1 réponse

Discussions similaires