korn9980
Messages postés1Date d'inscriptionmercredi 22 août 2007StatutMembreDernière intervention10 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és38Date d'inscriptiondimanche 12 octobre 2008StatutMembreDernière intervention30 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és3275Date d'inscriptionjeudi 3 avril 2008StatutMembreDernière intervention14 septembre 20142 6 oct. 2008 à 13:20
mdr il y a plus de code dans les commentaires que dans la source :)
willow1er
Messages postés1Date d'inscriptionsamedi 23 juin 2007StatutMembreDerniè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és3Date d'inscriptionsamedi 3 décembre 2005StatutMembreDerniè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és1Date d'inscriptionjeudi 2 février 2006StatutMembreDernière intervention23 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és51Date d'inscriptionjeudi 17 octobre 2002StatutMembreDernière intervention12 janvier 20061 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és24Date d'inscriptionjeudi 27 avril 2006StatutMembreDernière intervention23 juin 20071 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és40Date d'inscriptionsamedi 21 février 2004StatutMembreDernière intervention23 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és140Date d'inscriptionjeudi 2 mai 2002StatutMembreDerniè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és29Date d'inscriptionmercredi 6 octobre 2004StatutMembreDerniè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és18Date d'inscriptionlundi 24 janvier 2005StatutMembreDernière intervention26 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és2Date d'inscriptionvendredi 9 juillet 2004StatutMembreDerniè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és2Date d'inscriptionvendredi 9 juillet 2004StatutMembreDerniè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és140Date d'inscriptionjeudi 2 mai 2002StatutMembreDerniè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és202Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 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és30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 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és30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 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és35Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention19 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és4Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention22 mai 2002 22 mai 2002 à 15:46
bonjour,
je ne comprend rien, on peut faire un DIR ?
cs_Jielde
Messages postés226Date d'inscriptionmardi 17 octobre 2000StatutMembreDerniè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és35Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention26 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és79Date d'inscriptionvendredi 8 février 2002StatutMembreDernière intervention27 août 2006 27 avril 2002 à 11:08
salut je comprendpas pourquoi mon fichier uploader pese 0Ko?
cs_Worst
Messages postés19Date d'inscriptionvendredi 22 février 2002StatutMembreDernière intervention13 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és206Date d'inscriptionmercredi 30 janvier 2002StatutMembreDernière intervention 4 décembre 2007 29 mars 2002 à 13:29
Voila enfin une source qui marche merci !!!!!!!
cs_ArnaudH
Messages postés35Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention26 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és96Date d'inscriptionmardi 3 juillet 2001StatutMembreDerniè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és35Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention26 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és206Date d'inscriptionmercredi 30 janvier 2002StatutMembreDerniè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és35Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention26 juillet 2002 17 mars 2002 à 20:01
Simplement avec la méthode "DELETE"
cs_fabien66
Messages postés2Date d'inscriptionsamedi 16 mars 2002StatutMembreDernière intervention16 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és35Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention26 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és6Date d'inscriptionsamedi 27 janvier 2001StatutMembreDernière intervention19 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és35Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention26 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és962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 16 févr. 2002 à 20:26
on peut envoyer mais pour recevoir on fait comment?
10 juil. 2009 à 23:54
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.
24 févr. 2009 à 14:16
6 oct. 2008 à 13:20
4 févr. 2008 à 11:38
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
2 août 2006 à 14:49
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
23 juil. 2006 à 15:01
9 juin 2006 à 17:27
7 mai 2006 à 22:29
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
3 mai 2006 à 00:33
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
29 nov. 2005 à 11:33
29 nov. 2005 à 10:54
29 oct. 2005 à 18:51
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...
9 juil. 2004 à 14:53
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
9 juil. 2004 à 14:39
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
24 avril 2003 à 13:41
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
21 janv. 2003 à 20:08
27 juin 2002 à 17:57
car je suis dans la @@@@@.
27 juin 2002 à 17:56
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
2 juin 2002 à 10:17
Merci :-)
10/10 pour la peine
22 mai 2002 à 15:46
je ne comprend rien, on peut faire un DIR ?
5 mai 2002 à 04:09
27 avril 2002 à 11:44
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
27 avril 2002 à 11:08
2 avril 2002 à 09:43
29 mars 2002 à 13:29
25 mars 2002 à 20:57
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
25 mars 2002 à 20:44
25 mars 2002 à 20:30
donc sous dos tu tape:
>ftp
>help ou ?
et tu va avoir tout les contrôle il sont semblable a ceux k'utilise VB
25 mars 2002 à 12:53
17 mars 2002 à 20:01
16 mars 2002 à 12:06
17 févr. 2002 à 15:57
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
17 févr. 2002 à 01:43
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
16 févr. 2002 à 21:32
16 févr. 2002 à 20:26