Commentaires sur une source : INET ( ENVOYE D'UN FICHIER VERS VOTRE FTP ET VICE-VERSA)

korn9980 Messages postés 1 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 10 juillet 2009
10 juil. 2009 à 23:54

je débute sur VB mais j'ai essayer de renter ses codes mais je n'y arrive a envoyer un fichier sur mon serveur FTP de ma neuf Box (NB4). il faut savoir que j'ai changer le port volontairement pour pas quon puisse acceder a mon serveur FTP.

il faut dir au debut j'ai éssayer avec Visual studio 2008 mais le composant Microsoft Internet Transfert Protocol je ne les pas trouver, alors j'ai du réutilisé mon vieux VB6.

quelqun aurrai une idée avant que je fou ma neuf box par la fenêtre car la je sais vraiment pas quoi faire et cette fonction j'en est vraiment besoin.

Skanenruf Messages postés 38 Date d'inscription dimanche 12 octobre 2008 Statut Membre Dernière intervention 30 juin 2010
24 févr. 2009 à 14:16

Willow1er, Sur ta barre d'outils, tu fais clic droit puis "Composants" et là tu choisis "Microsoft Internet Transfert Protocol SP6", c'est classé par ordre alphabétique. Puis tu ajoutes un contrôle de la nouvelle instance sur ta feuille... Laisse nommé Inet1 car tous les codes utilisent ce nom par défaut !

gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 2
6 oct. 2008 à 13:20

mdr il y a plus de code dans les commentaires que dans la source :)

willow1er Messages postés 1 Date d'inscription samedi 23 juin 2007 Statut Membre Dernière intervention 4 février 2008
4 févr. 2008 à 11:38

Bonjour,

Cete source m'intéresse vivement mais le probleme est que je ne parviens pas a acceder a microsoft internet transfer control pour activer le controle inet dans outils/complements de vb6. j'ai sauté une étape?
Du coup ca ne fonctionne pas et j'en ai vraiment besoin..... HELPPP
Par avance merci

vainvain3 Messages postés 3 Date d'inscription samedi 3 décembre 2005 Statut Membre Dernière intervention 6 avril 2006
2 août 2006 à 14:49

Bonjour,

Juste une petite question
Je reçois bien mon fichier avec la commande GET mais je voudrais également récuperer la date de création de se même fichier car là
je me retrouve avec la date et l'heure de reception.
Merci par avance

Fa1nT11 Messages postés 1 Date d'inscription jeudi 2 février 2006 Statut Membre Dernière intervention 23 juillet 2006
23 juil. 2006 à 15:01

je voudrais savoir comment faire pour récupérer la taille grace au Inet d'un fichier sur un ftp svp

ipfixe Messages postés 51 Date d'inscription jeudi 17 octobre 2002 Statut Membre Dernière intervention 12 janvier 2006 1
9 juin 2006 à 17:27

Inet c'est chier meme si ta source est bonne, il fige toute l'appli derriere et pour les gros fichiers > 50M ouha alors c'est de la bombe atomique la boucle presque infini ... merci bill

couteau7 Messages postés 24 Date d'inscription jeudi 27 avril 2006 Statut Membre Dernière intervention 23 juin 2007 1
7 mai 2006 à 22:29

Bonjour, l'erreur est la suivante:

Private Sub Command1_Click()
With Inet1
.URL = "ftp://ftp.multimania.com"
.UserName = "criticaldata"
.Password = "qeadzc"
##Do Until Inet1.StillExecuting = False##
##DoEvents##
##.Execute , "PUT testo.txt OK.txt"##
Loop

End With
End Sub

Correction:
Private Sub Command1_Click()
With Inet1
.URL = "ftp://ftp.multimania.com"
.UserName = "criticaldata"
.Password = "qeadzc"
.Execute , "PUT testo.txt OK.txt"
Do Until Inet1.StillExecuting = False
DoEvents
Loop

End With

en esperant avoir aider car moi mon problème c'est que quand j'envois plusieus fichiers a la suite le premier part mais pas les autres pourtant j'ai bien la boucle j'ai reverifier tout mon code depuis 1 semaine. alors si vous avez une aide merci

Voila mon code:

Dim Nombre, Ligne As Double
Dim En As String

Nombre = Recup.ListCount
Ligne = 0

With Inet1
.Protocol = icFTP
.URL = "ftp://serveur.com" 'Entrez l'adresse de votre FTP
.UserName = "Utilisateur" 'Entrez votre nom d'utilisateur
.Password = "Password" ' Entrez votre mot de passe
End With

Do
Recup.ListIndex = Ligne ' Selectionne la ligne a envoyer
En = "PUT " & Recup.Text 'Transforme le lien en execution

If En <> "" Then 'Evite des erreur si il n'y a pas de saisie
Inet1.Execute , (En) ' Envois
Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop
End If

Ligne = Ligne + 1
Loop Until Ligne = Nombre

Inet1.Execute , "CLOSE"

Recup.Clear
Recuperation.Enabled = True
End Sub

retsam Messages postés 40 Date d'inscription samedi 21 février 2004 Statut Membre Dernière intervention 23 mars 2007
3 mai 2006 à 00:33

Je ne comprend pas trop si c'est comme ca Jb2 (je suis en retard?)haha
merci d'une réponse

----------------------------------->
Private Sub Command1_Click()
With Inet1
.URL = "ftp://ftp.multimania.com"
.UserName = "criticaldata"
.Password = "qeadzc"
Do Until Inet1.StillExecuting = False
DoEvents
.Execute , "PUT testo.txt OK.txt"
Loop

End With
End Sub

cs_nihaoma Messages postés 140 Date d'inscription jeudi 2 mai 2002 Statut Membre Dernière intervention 2 février 2010
29 nov. 2005 à 11:33

le control Inet se trouve dans "Project/Components" et dans la liste tu coche "microsoft Internet Trasnfert Control 6.0" (désolé, j'ai une version anglaise de VB, mais je penses pas que la traduction sera trop difficile ;o)

Am_i_ne Messages postés 29 Date d'inscription mercredi 6 octobre 2004 Statut Membre Dernière intervention 9 mars 2007
29 nov. 2005 à 10:54

bjr comment ajouter le controle Inet je ne le trouve pas parmis les controle dont je dispose

cs_Jb2 Messages postés 18 Date d'inscription lundi 24 janvier 2005 Statut Membre Dernière intervention 26 août 2008
29 oct. 2005 à 18:51

La réponse quand il pèse 0 oct, c'est qu'il faut mette le code suivant après le inet.Execute :

Do Until Inet1.StillExecuting = False
DoEvents
Loop

Pour lui demander d'attendre la fin du transfère. Autrement, pour le fait qu'il n'y ait pas de fichier, moi aussi, c'est problématique...

dessmei2000 Messages postés 2 Date d'inscription vendredi 9 juillet 2004 Statut Membre Dernière intervention 9 juillet 2004
9 juil. 2004 à 14:53

salut,
même problème,
j'envoi un fichier sur le ftp mais il pése 0 ko donc y a rien dedans?
bizard non,
nb: j'ai pas de firwall
yassine

dessmei2000 Messages postés 2 Date d'inscription vendredi 9 juillet 2004 Statut Membre Dernière intervention 9 juillet 2004
9 juil. 2004 à 14:39

salut,
même problème,
j'envoi un fichier sur le ftp mais il pése 0 ko donc y a rien dedans?
bizard non,
nb: j'ai pas de firwall
yassine

cs_nihaoma Messages postés 140 Date d'inscription jeudi 2 mai 2002 Statut Membre Dernière intervention 2 février 2010
24 avril 2003 à 13:41

Bonjour le monde
déja, bravo pour ta source, c exactement ce que je recherche....sauf que chez moi ca marche po ! :-(
en fait, le fichier semble eter envoye (plus je met un fichier gros, plus ca prend de temps avant la réponse), le msgbox "fichier envoyé" apparait....mais sur le serveur, rien....
y'a kelk'1 k'aurrait une soluce ?
merki d'avanche

cs_slayer Messages postés 202 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 mars 2008
21 janv. 2003 à 20:08

et si on veut envoyé un dossier a la place du fichier , on fait comment ??

jujuwiwi Messages postés 30 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 24 août 2007
27 juin 2002 à 17:57

j'espére que tu répondras à cette question.........;
car je suis dans la @@@@@.

jujuwiwi Messages postés 30 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 24 août 2007
27 juin 2002 à 17:56

Voila j'ai un probléme avec la fonction inet pour mettre un fichier sur un serveur grâce à l'instruction Inet1.Execute , "PUT "....

Avec le code que tu as mis en ligne, j'arrive à mettre sur le serveur un fichier, mais j'ai un probléme si je veux remplacer le chemin de la source par une variable, là cela ne marche pas.

Si tu pouvais m'aider ce serait super sympa de ta part.

Voila ce que moi je met:
Inet1.Execute , "PUT " & imagserveur & " /" & "web/michel/test/images/" & recupimag

imagserveur (contient le chemin du fichier), et recupimag (contient le nom du fichier)

Comment faut-il faire, j'ai presque tout essayé...si j'avais tout essayé j'aurais trouvé la solution. lol

Encore merci

cs_Berenger Messages postés 35 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 19 juillet 2004
2 juin 2002 à 10:17

Bravo ! En plus tu réponds a toutes les questions et ton code m'aide bien

Merci :-)

10/10 pour la peine

cs_fred Messages postés 4 Date d'inscription dimanche 1 avril 2001 Statut Membre Dernière intervention 22 mai 2002
22 mai 2002 à 15:46

bonjour,

je ne comprend rien, on peut faire un DIR ?

cs_Jielde Messages postés 226 Date d'inscription mardi 17 octobre 2000 Statut Membre Dernière intervention 1 décembre 2010
5 mai 2002 à 04:09

Salut, comment faire pour faire défiller un progressbar pendant le téléchargement du fichier sur le FTp ou l'inverse ? Comment fais tu aussi pour le DELETE ?

cs_ArnaudH Messages postés 35 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 26 juillet 2002
27 avril 2002 à 11:44

Salut, Si tu es équipé d'un firewall c'est normal, le fichier est envoyé si tu lui a permis mais perd toute ses donnée.

Ou alors c'est ta connexion. Je ne pourrais pas te donner plus de enseignement car ce cas ne m'es jamais arrivé.

A+

Arnaud

cs_kawash Messages postés 79 Date d'inscription vendredi 8 février 2002 Statut Membre Dernière intervention 27 août 2006
27 avril 2002 à 11:08

salut je comprendpas pourquoi mon fichier uploader pese 0Ko?

cs_Worst Messages postés 19 Date d'inscription vendredi 22 février 2002 Statut Membre Dernière intervention 13 décembre 2006
2 avril 2002 à 09:43

Enfin quelqu'un qui répond aux questions, qui est clair et précis. Bravo !

leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007
29 mars 2002 à 13:29

Voila enfin une source qui marche merci !!!!!!!

cs_ArnaudH Messages postés 35 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 26 juillet 2002
25 mars 2002 à 20:57

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 , "DELETE test.txt" // Supprime le fichier texte "test.txt"
End With
End Sub

kidpigeyre Messages postés 96 Date d'inscription mardi 3 juillet 2001 Statut Membre Dernière intervention 2 novembre 2006
25 mars 2002 à 20:44

peux-tu faire un exemple sur comment supprimer un fichier d'un ftp. Merci

cs_ArnaudH Messages postés 35 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 26 juillet 2002
25 mars 2002 à 20:30

tu va sous dos et tu demande les commandes ftp
donc sous dos tu tape:
>ftp
>help ou ?
et tu va avoir tout les contrôle il sont semblable a ceux k'utilise VB

leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007
25 mars 2002 à 12:53

Tu pourrais pas me dire ou trouver la liste des fonctions de traitement du contrôle Inet ???? du genre comment afficher le contenu du serveur, la taille d'un dossier, d'un fichier.... tout ces petits trucs quoi .

cs_ArnaudH Messages postés 35 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 26 juillet 2002
17 mars 2002 à 20:01

Simplement avec la méthode "DELETE"

cs_fabien66 Messages postés 2 Date d'inscription samedi 16 mars 2002 Statut Membre Dernière intervention 16 mars 2002
16 mars 2002 à 12:06

comment tu fais pour supprimer le fichier du ftp une fois copié sur le disque dur?

cs_ArnaudH Messages postés 35 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 26 juillet 2002
17 févr. 2002 à 15:57

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

FredericPinchon Messages postés 6 Date d'inscription samedi 27 janvier 2001 Statut Membre Dernière intervention 19 janvier 2003
17 févr. 2002 à 01:43

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
16 févr. 2002 à 21:32

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)

yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
16 févr. 2002 à 20:26

on peut envoyer mais pour recevoir on fait comment?

INET ( ENVOYE D'UN FICHIER VERS VOTRE FTP ET VICE-VERSA)

Votre réponse

Discussions similaires