Je réalise actuelement une application necessitant une liaison ftp permettant l'upload et le download..
Voici 2 codes :
Public Sub Upload(in_Source, in_Destination)
With Inet1
.url = "ftp://" & Ip 'adresse du serveur
'.UserName = User 'nom d'utilisateur ftp
' .Password = Password 'mot de passe ftp
End With
Inet1.Execute , "PUT " & in_Source & " " & in_Destination 'repertoire du fichier à envoyer
End Sub
Celui-ci fonctionne sans problème le fichier de 183Mo est envoyé, cependant, le script (ActiveX dans une page Javascript) quitte avant d'arriver a la fin, impossible de déterminer quand l'upload est terminé...
Si je rajoute la section de code permetant a Inet d'attendre :
Public Sub Upload(in_Source, in_Destination)
With Inet1
.url = "ftp://" & Ip 'adresse du serveur
'.UserName = User 'nom d'utilisateur ftp
' .Password = Password 'mot de passe ftp
End With
Inet1.Execute , "PUT " & in_Source & " " & in_Destination 'repertoire du fichier à envoyer
Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet
DoEvents
Loop
End Sub
... Plus rien ne fonctionne, le fichier est envoyé.. Enfin un bout du fichier est envoyé (de 900ko a 27mo )... tout corrompu...
Et un message d'erreur indiquant que l'automation a été déconnecté apparait, la page IE se ferme...
Quelqu'un a t'il une idée ??? j'ai besoin de savoir quand le fichier est fini d'upload