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

Commentaire de ArnaudH le 16/02/2002 21:32:00

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)

Commentaire de ArnaudH le 17/02/2002 15:57:01

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

Commentaire de ArnaudH le 17/03/2002 20:01:13

Simplement avec la méthode "DELETE"

Commentaire de ArnaudH le 25/03/2002 20:30:13

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

Commentaire de ArnaudH le 25/03/2002 20:57:15

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

Commentaire de Worst le 02/04/2002 09:43:24

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

Commentaire de ArnaudH le 27/04/2002 11:44:40

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

Commentaire de fred le 22/05/2002 15:46:14

bonjour,

je ne comprend rien, on peut faire un DIR ?

Commentaire de jujuwiwi le 27/06/2002 17:56:13

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

Commentaire de slayer le 21/01/2003 20:08:27

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

Commentaire de dessmei2000 le 09/07/2004 14:39:19

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

Commentaire de Jb2 le 29/10/2005 18:51:49

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...

Commentaire de nihaoma le 29/11/2005 11:33:31

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)

Commentaire de couteau7 le 07/05/2006 22:29:33

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

Commentaire de Fa1nT11 le 23/07/2006 15:01:26

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

Commentaire de willow1er le 04/02/2008 11:38:26

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

Commentaire de Skanenruf le 24/02/2009 14:16:00

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 !