FTP et composant Inet1

Bonjour à tous,

Je désire réaliser un petit module de FTP en Visual basic 6.
J'ai donc créer un bouton de commande et un composant Inet (Microsoft Internet Transfert Control 6.0) dans mon formulaire.
Mon code est le suivant :
Code:

1 2 3 4 5 6 7 8 Private Sub cmdEnvoi_Click() With Inet1 .URL = "ftp://ftp.monserveur.com" 'adresse du serveur .UserName = "utilisateur" 'nom d'utilisateur ftp .Password = "motdepasse" 'mot de passe ftp .Execute , "SEND c:\test\test.txt" 'repertoire du fichier à envoyer End With End Sub
J'ai également affecté la valeur icDirect à la propriété AccessType, icFTP à la propriété Protocol ainsi que 21 à mon RemotePort.

Pourtant ce code ne fonctionne pas et ce qui est bizarre, c'est que je n'ai même pas de message d'erreur.

Merci d'avance pour votre aide précieuse ...

Je ne connais pas bien le composant inet
personellement j'ai créé un composant client ftp, basé sur winsock
tu trouveras la source ici

la commande SEND n'est pas bonne, il manque le nom du fichier de destination

Code:

1
2
3
4
5
6
7
8
9
10
11
12
     With Inet1
        .URL = "ftp://ftp.monserveur.com" 'adresse du serveur
        .UserName = "utilisateur" 'nom d'utilisateur ftp
        .Password = "motdepasse" 'mot de passe ftp
        .Execute , "SEND c:\test\test.txt test.txt" 'repertoire du fichier à envoyer + nom du fichier de destination
        ' et accessoirement ...
        While .StillExecuting
            DoEvents
        Wend
        .Execute , "CLOSE"
        MsgBox "tranfert terminé"
     End With

Merci pour ton aide mec, je vais essayer ca de suite.

Par contre il y a quelque chose que je ne saisi pas ...

En fait, il faut indiquer le nom que l'on veut donner au fichier sur le serveur ?

Citation:

Envoyé par method_man

En fait, il faut indiquer le nom que l'on veut donner au fichier sur le serveur ?

oui

bONJOUR MON AMI !!

Voila mon problème : j'arrive à me connecter correctement sur le serveur.
Ce qui ne marche pas est l'envoi de mon fichier. :evilred:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 With Inet1 .URL = "ftp://ftp.serveur.com" 'adresse du serveur .UserName = "nom" 'nom d'utilisateur ftp .Password = "mot de passe" 'mot de passe ftp .Execute , "SEND C:\test\test.txt test.txt" ' envoi du fichier test.txt While .StillExecuting DoEvents Wend .Execute , "CLOSE" MsgBox "transfert terminé" End With
En effet, je me connecte correctement au serveur. Puis, aprés quelques minutes d'attentes 8O , le message "transfert terminé" s'affiche :D . Et pourtant lorsque je vérifie sur le serveur, mon fichier n'est pas copié. :cry:

As-tu une idée pour m'aider stp ??

essaie de rajouter (j'avais pas vu que c'était manquant) :
Code:

1 2 3 4 With Inet1 .AccessType = icDirect .Protocol = icFTP .URL ...................

J'avais déjà défini ces propriétés.
Je ne comprend vraiment pas pourquoi ça marche pas, ça me tracasse.

Peux-tu m'expliquer à quoi sert DoEvents ??

Bonjour.

Est-ce que tu est bien sûr du répertoire distant dans lequel le fichier est copié ?
Si ce n'est pas le répertoire par défaut après la connexion, il faut le changer ...

La boucle avec le DoEvents sert à attendre que l'éxécution de la commande soit terminée avant d'en lancer une autre.