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 :
J'ai également affecté la valeur icDirect à la propriété AccessType, icFTP à la propriété Protocol ainsi que 21 à mon RemotePort.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 ...
Partager