Inet ( envoye d'un fichier vers votre ftp et vice-versa)

0/5 (35 avis)

Snippet vu 15 819 fois - Téléchargée 48 fois

Contenu du snippet

J'ai lu beaucoup de code source d'envoie sur ftp qui ne fonctionnait pas avec Visual Basic 6.0 j'ai donc voulu aider les pocèsseur de programme a mettre leur site a jour.
Vous devez joindre un contrôle Inet a votre programme pour que cela fonctionne correctement.

Source / Exemple :


Private Sub Command1_Click()
With Inet1
   .URL = "ftp://ftp.multimania.com" // Entrez l'adresse de votre FTP
   .UserName = "Nom d'utilisateur" // Entrez votre nom d'utilisateur
   .password = "Mot de passe" // Entrez votre mot de passe
   .Execute , "PUT test.txt OK.txt" // Le premier fichier test.txt est le fichier de votre ordinateur, OK.txt et le fichier du ftp (renommé)
End With
End Sub

Conclusion :


Voila, n'oubliez pas de crée le fichier test.txt dans le meme répertoire où votre projet est enregistré.
J'espère vous avoir été utile si vous avez des problème maillez-moi arnaud_h90@hotmail.com
P.S : pour reçevoir au lieu d'envoyer modifier le mot PUT par GET

A voir également

Ajouter un commentaire

Commentaires

yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
on peut envoyer mais pour recevoir on fait comment?
cs_ArnaudH
Messages postés
35
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
26 juillet 2002
-
C simple, tu met GET a la place de PUT, bien sur tu dois entrer le nom de ton fichier (celui qui est sur ton ftp)
FredericPinchon
Messages postés
6
Date d'inscription
samedi 27 janvier 2001
Statut
Membre
Dernière intervention
19 janvier 2003
-
slt arnault,
ca fonctionne dans les deux sens. j'ai un peu tatone mais c'est ok.
deux questions : comment suivre la progression du telechargement et comment autorisr l'ecrasement du fichier "cible" a la reception. si le fichier est deja sur le pc, la commande "get" ne l'ecrase pas.
merci
fredo
cs_ArnaudH
Messages postés
35
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
26 juillet 2002
-
Salut,

Et bien pour avoir une progression ( message renvoyé par le serveur )
tu double clique sur ton contrôle Inet afin k'il affichie le code source et tu copie ceci

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 1
etat.Caption = "Recherche l' IP de l'ordinateur hôte."
Case 2
etat.Caption = "IP de l'ordinateur hôte spécifié."
Case 3
etat.Caption = "En cours de connexion avec l'ordinateur hôte."
Case 4
etat.Caption = "La connexion avec l'ordinateur hôte est réussie."
Case 5
etat.Caption = "Envoie une demande à l'ordinateur hôte."
Case 6
etat.Caption = "La demande a été envoyé avec succès."
Case 7
etat.Caption = "Reçoit une réponse de l'ordinateur hôte."
Case 8
etat.Caption = "Contacte avec l'ordinateur hôte réussi."
Case 9
etat.Caption = "En cours de déconnexion avec l'ordinateur hôte."
Case 10
etat.Caption = "La déconnexion avec l'ordinateur hôte est réussie."
End Select

If State = 11 Then
MsgBox "Erreur"
End If
If State = 12 Then
MsgBox "Transfert : OK"
End If
End Sub
cs_fabien66
Messages postés
2
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
16 mars 2002
-
comment tu fais pour supprimer le fichier du ftp une fois copié sur le disque dur?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.