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

yoman64

Messages postés: 962
Date d'inscription: samedi 19 janvier 2002
Statut: Membre
Dernière intervention: 2 août 2010

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

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2612-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

3
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

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

Afficher les 35 commentaires