Je n'avais pas vu cette utilisation de la propriété StillExecuting. Ca a l'air moins lourd que ma solution.
Moi, j'ai utilisé l'évènement Inet1_StateChange dans la procédure duquel je surveille le passage de l'état 11:erreur ou 12: tout s'est bien passé.
Chaque commande ftp est suivie d'une boucle d'attente qui attend que les booléens LftpOK ou LftpErr passent à vrai, ces booléens étant mis à jour par Inet1_StateChange.
Ca me permet, avec un debug.print dans cette procédure, de voir plus précisément ce qui se passe quand ça ne marche pas.
Dans l'exemple je n'ai pas compris l'instruction
Inet1.Execute , "dir"
Comment récupère-t-on le résultat?
-------------------------------
Réponse au message :
-------------------------------
Ouhlalalalalalala....
Rassure toi moi aussi j'en ai bavé avec ce genre de choses.
Voila une procédure qui marche parfaitement ( tout le secret tient dans la boucle de tempo )
Private Sub Command1_Click()
'On défini le protocole de transfert
Inet1.Protocol = icFTP
'On défini l'adresse IP du serveur Unix
Inet1.RemoteHost = "128.0.100.1"
'On défini le login, en général ROOT
Inet1.UserName = "root"
'On défini le password
Inet1.Password = "xxxxx"
'On défini le nom du fichier à rappatrier de l'unix
'Attention Unix tient compte de la casse pas windows
nomfichier = "toto.txt"
'On se positionne dans le repertoire de l'unix
Inet1.Execute , "cd file://usr/file/fax"
'On execute cette boucle de tempo pour laisser le temps à l'unix de traiter la commande
Test = Inet1.StillExecuting
While Test = True
Test = Inet1.StillExecuting
DoEvents
Wend
'On lit le repertoire de l'unix
Inet1.Execute , "dir"
'On execute cette boucle de tempo pour laisser le temps à l'unix de traiter la commande
Test = Inet1.StillExecuting
While Test = True
Test = Inet1.StillExecuting
DoEvents
Wend
'On transfer le fichier du repertoire file://usr/file/fax/ de unix au repertoire c:\ de windows
Inet1.Execute , "get file://usr/file/fax/" & nomfichier & " c:\" & nomfichier
'On execute cette boucle de tempo pour laisser le temps à l'unix de traiter la commande
Test = Inet1.StillExecuting
While Test = True
Test = Inet1.StillExecuting
DoEvents
Wend
'On ferme la connexion
Inet1.Execute , "close"
End Sub
Voila en espérant que cela puisse t'aider... N'hésite pas à me contacter au besoin
Bonne journée et bonne prog !
-------------------------------
Réponse au message :
-------------------------------
Comment ça marche ?
Je veux tranférer un p... de fichier à partir d'un UNIX sur un Win95 via FTP et je voulais utilisé Microsoft Internet Transfer mais l'aide est pas claire. Quelqu'un ne se serait pas déjà pris la tête la dessus ?
|