Discussion :

[Ramdoulou]

Bonjour à tous

Alors voilà, après avoir fait pas mal de recherche je n'ai trouvé aucune réponse à ma question...

Est-ce possible de uploader un fichier sur un ftp free, via une application Vb6 ?

Si oui, de quelle manière ? Inet ? Winsock ?

merci d'avance pour vos réponses =)


Amicalement, Pablo

[SfJ5Rpw8]

bonsoir,

fouille un peu dans la page des contributions à Delbeke :

http://contrib-vb.developpez.com/Delbeke/

tu trouvera un activex, avec ses sources et un code exemple te permettant de rajouter des fonctions ftp à ton projet

[Ramdoulou]

Merci pour ta réponse

J'ai téléchargé sa contribution, exellent travail =o

Le seul truc, c'est que j'ai du mal à la faire fonctionner, pour faire étape par étape, je veux juste que si je clique sur un CommandButton, il envoi directement tel fichier sur mon ftp free dont les identifients sont déjà défini à l'ouverture de la form.

J'y vais tres progressivement, et en essayant le code tout simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
FtpCli1.Met_PUT "C:\Documents and Settings\Pablo\Bureau\Notes.txt"
End Sub

Je m'aperçoit déjà que cela ne marche pas.
Donc c'est qu'il manque plusieurs choses pour que ca fonctionne, mais quoi ? oO (je ne suis pas un expert non plus, la contribution de Delbeke me donne mal à la tête xDD).

Merci d'avance

J'ai essayé d'autres méthodes, mais je n'ai pas trouvé...

Quels sont les éléments minimums à mettre pour que ça fonctionne ?
Car enfaite Delbeke n'a pas mis de gros commentaires descriptifs (sans doute parce que ses sources sont déstinées à des développeurs experts...).

Voilà merci d'avance.

[SfJ5Rpw8]

re,

Tu rajoute un controle ftpCli (FtpCli1) sur ta form puis par exemple le code du bouton d'envoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Command1_Click()
   FtpCli1.RemoteHost = "ftpperso.free.fr"
    FtpCli1.RemotePort = 21
    FtpCli1.UserName = "Ramdoulou"
    FtpCli1.Password = "5R8OIuvix"
    If FtpCli1.Met_CONNECT Then
       MsgBox "connexion Ok"
       If FtpCli1.Met_PUT("d:\tmp\ping.txt") Then
         MsgBox "Transfert terminé"
         Else
         MsgBox "Erreur transfert"
       End If
      FtpCli1.Met_BYE
    Else
       MsgBox "Connexion impossible !"
    End If
End Sub

pour mieux suivre les transaction, rajoute une listbox (List1) sur ta form et le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub FtpCli1_ProtocolArrival(Data As String)
  List1.AddItem "<=" & Data
  List1.ListIndex = List1.ListCount - 1
End Sub
 
Private Sub FtpCli1_ProtocolSend(Data As String)
  List1.AddItem "=>" & Data
End Sub

[Ramdoulou]

Merci pour ta réponse qui m'a été une aide précieuse !

Mais il me reste une toute petite question...
Si je veux envoyer par exemple tous les fichiers textes de tel dossier, j'ai juste à remplacer cette ligne par ceci ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If FtpCli1.Met_PUT(App.path & "test\*.txt") Then

Seulement non, ca ne fonctionne pas, quelqu'un saurai comment faire ? =o

Merci d'avance, vous m'aidez beaucoup =D

[SfJ5Rpw8]

un coup sur l'instruction Dir et une boucle

[Ramdoulou]

Quand je fais F1, j'ai un message d'erreur avec "La collection MSDN n'existe pas. Veuillez réinstaller MSDN."

C'est mon père qui m'a installé Visual Studio, SQL server etc...mais c'était il y a longtemps, j'ai du faire une bêtise...je vais lui demander de me refiler MSDN.

[ucfoutu]

VB6 sans MSDN = bicyclette sans guidon...
Tu es ici depuis suffisamment longtemps pour ne pas avoir découvert que tu pouvais la télécharger depuis ce site : cherche dans la section outils de VB6, peut-être !!!

[Ramdoulou]

Je suis en train de téléchargé la version MSDN pour Visual Studio 2005 vu que j'ai le 2006 ca devrait marcher normalement.

Merci et puis je vous tiens au courant.

[Ramdoulou]

Je suis embeté car le MSDN pour Vb6 présent sur Developpez est endommagé, du moins le 2eme cd

Si quelqu'un au pire ayant la réponse, pouvait me la mettre (n'ayant pas pu dl MSDN pour Vb6) ça serait sympatoche =)

j'ai tout de même signalé le problème comme quoi le 2eme disque est endommagé.

[SfJ5Rpw8]

Comment obtenir le contenu d'un répertoire ?

[ThierryAIM]

Je suis embeté car le MSDN pour Vb6 présent sur Developpez est endommagé, du moins le 2eme cd

Je viens de télécharger, décompresser avec winrar et monter l'image iso, je n'ai pas de problème ...

[SfJ5Rpw8]

Je viens de télécharger, décompresser avec winrar et monter l'image iso, je n'ai pas de problème ...

grr tu aurai pu me prévenir j'aurai pas eu à le faire même résultat

[Ramdoulou]

Merci ça marche =D

Le seul soucis c'est que le fichier uppé (ici .txt) ne contient rien une fois sur le ftp, mais ça doit être une petite erreur de manip'...

ps : jviens de re-dl MSDN, ca marche impec merci.