Discussion :

[TheReturnOfMuton]

Bonjour,
J'ai un petit souci lorsque j'utilise cette fonction trouvée sur le net :

Code :

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
 
Private Sub VistaButtonSend_Click()
 
    On Error GoTo MyError
    With Inet1
        .AccessType = icDirect
        .Protocol = icFTP
        .url = "ftp://" & string_login & ":" & string_password & "@" & string_url
        .Execute , "SEND " & source_file & " " & "/" & dest_file
        While .StillExecuting
            DoEvents
        Wend
        .Cancel
    End With
 
MyError:
        MsgBox "FTP connection or transfer error, please try again."
 
End Sub

En fait lorsque je clique sur mon bouton tous les parametres sont corrects, mais le fichier n'est que très rarement envoyé sur mon compte ftp... et dans tous les cas, en pas à pas, on passe par MyError, ce qui n'est pas normal en cas de succes...

Pourriez-vous me debloquer svp ?
Merci d'avance.

[Delbeke]

Si, d'apres ton code, si tout se pase bien, on passe sur MyError:
il faut un exit sub juste avant cette ligne

Code :

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

1
2
3
4
 
    End With
    Exit sub
MyError:

sinon, il serait interessant d'avoir le code et la description de l'erreur dans msgbox

Code :

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

Msgbox "Erreur n° " &  err & " Description : " & err.description

[TheReturnOfMuton]

Delbeke,
Effectivement mon code etait un peu bancal
En tout cas j'ai bien ajoute le end sub et le MsgBox, mais finalement ca ne plante pas..... la fonction termine, mais le fichier n'est pas cree sur mon FTP...

Si je fais un test plus simple, c'est a dire avec un fichier test.txt vide, il est créé sans pb.
Mais pour des fichiers XML avec des noms plus lourds, ca ne passe jamais... pas d'erreur retournee pourtant...

Aurais-tu un autre exemple de fonction d'envoi FTP qui marche ?
Je prefere la changer faute de temps, qu'essayer de la corriger snas etre sur du resultat...

Merci et @ + !

[Delbeke]

J'ai développé un composant client ftp qui fait le boulot, tu le trouveras en suivant le lien mes contributions dans ma signature. il est fourni avec le code et un exemple de mise en oeuvre.

[TheReturnOfMuton]

Salut Delbeke,
Ton client marche tres bien, mais j'obtiens parfois cette erreur lorsque je quitte mon appli :

"Run-time error '40006':
Wrong protocol or connection state for the requested transaction or request"

Y a-t-il quelque chose a faire (objet a vider ou autre) en quittant ??
Merci d'avance !

[Delbeke]

Heu, tu fermes bien la connection apres ton transfert ?
Peut être le serveur FTP à un time out et qu'il ferme la connection apres quelques temps d'inactivité, Et si tu tentes de fermer quand tu quittes ton programme, boom!