Urgent, Transférer un fichier sur FTP

Question

Salut !

J'ai réussi à créer avec WinSock un dossier dans mon FTP à un endroit précis.
Mais je n'arrives pas à copier un fichier précis dans ce dossier précis.
Avez-vous une idée svp ?

Merci						

----------
OS        : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

cs_Jack · Answer

Salut

Et qu'as-tu écris ?

As-tu fais une simple recherche de 'ftp' parmi les codes du site ?
FTP n'est pas un gestionnaire de fichier, il faut te déplacer sur le sous-répertoire de destination avant de vouloir y mettre un fichier.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Sinsitrus · Answer

Alors après la connexion au serveur, voici la commande pour créer le dossier
WinSock.SendData "Mkd " & T_Societe.text & vbCrLf
Le dossier se crèe donc ici :
T_Dossier = "/domains/monsite.com/public_html/Sauvegarde/Societes/" & T_Societe.text
Ensuite, au clic du Bouton2, il doit récupérer le fichier T_Fichier.text et l'uploader sur le T_Dossier.Text

Là je plante. Je ne sais plus avancer... :s

cs_Jack · Answer

Un exemple de la liste des commandes FTP se trouvent http://www.commentcamarche.net/contents/outils-reseau/commandes-ftp.php3

Non, Mkd (syntaxe réelle : MkDir) crée un sous-répertoire sur le répertoire sur lequel tu te trouves à ce moment là.
Les noms des répertoires ne peuvent pas comporter d'espace : Y as-tu pensé ?

et ?
Qu'as-tu écris pour récupérer ce fichier ?

Je me répète : FTP n'est pas un gestionnaire de fichiers.
Tu ne peux donc pas demander à télécharger un fichier en précisant le répertoire de la source côté serveur. Il faut d'abord te déplacer, répertoire après répertoire (avec la commande FTP CD), sur le sous-répertoire où se trouve ton fichier, et alors seulement tu pourras demander le chargement de ce dernier.

Sinsitrus · Answer

Merci pour la liste de commande.

Oui j'y ai pensé, j'ai limité les caractère dans le TextBox mais par contre avec le Mkd il crèe effectivement le dossier... y aura t-il un problème plus tard ?

Pour récupérer le fichier il affiche le lien de la source du fichier ainsi que le fichier dans un textbox. Là je ne penses pas qu'il y ai de problème.

FTP n'est pas un gestionnaire de fichiers. Je me trompe de nom souvent, mais enfin, je penses que tu comprends ce dont je parles, dans la source de mon siteweb, je crèe un dossier là où je veux (là y 'a pas de problème)

Maintenant:
Je récupère le chemin du fichier dans un textbox
Je récupère le chemin où pose le fichier dans mon serveur dans un textbox

Au clic, j'ai essayé :
WinSock.SendData "put " & CheminFichier.txt, DestinationServeur.txt
Effectivement, je n'ai pas de bonne réponse vu que c'est certainement une erreur...

cs_Jack · Answer

Ce que je veux dire, c'est que DestinationServeur.txt ne doit contenir QUE le nom du fichier, il faut s'être positionné (avec CD) sur le bon répertoire avant. Pas question d'y mettre un chemin.

cs_Jack · Answer

Oups : manque aussi la virgule DANS la syntaxe FTP :
WinSock.SendData "put " & CheminFichier.txt & "," & DestinationServeur.txt

Sinsitrus · Answer

Humm... bloqué de plus en plus...

Jack, stp, patient un peux avec moi et sois indulgent (pas de crises je serrai idiot pour ce sujet vu que c'est une première fois que j'utilise WinSock

Alors tu me dis que je dois mentionner que le nom du fichier et pas la destination. Mais il faut tout de même se positionner avec la commande CD sur le bon répertoire.
Jusque là je comprends (heureusement :D)

Donc il me reste en théorie la commande pour défiler jusqu'à la source finale de destination. Une fois supposons que DestinationServeur.txt = /domains/monsite.com/public_html/e-Sauvegarde/Societes/MaSociété/
J'exécute la copie depuis le code que tu m'as donné :
WinSock.SendData "put " & CheminFichier.txt & "," & DestinationServeur.txt

Est-ce bien cela ? J'ai bien compris ton explication ?

cs_Jack · Answer

Je veux bien être patient, mais à chaque fois, tu donnes des infos incomplètes : Qu'y a t-il dans CheminFichier.txt ?

Oui, il faut que tu fasses un 
WinSock.SendData "CD " & DestinationServeur.txt
Vérifie si tu peux demander un chemin complet d'un seul coup ?
Il faudra peut-être faire un
WinSock.SendData "CD e-Sauvegarde"
puis un 
WinSock.SendData "CD Societes"
etc ...
J'ai commencé avec le répertoire e-Sauvegarde parce que, en général quand on se connecte à son serveur FTP, la racine correspond au répertoire public_html; je pense qu'il t'ai impossible de naviguer dans les répertoires antérieurs.
Pour le savoir, fait une commande PWD ou LS juste après ta connexion.

puis que tu fasses un
WinSock.SendData "put " & CheminFichier.txt & "," & NomFichier
Comme tu l'auras lu dans la page que je t'ai passée, le deuxième argument est facultatif (NomFichier)

Sinsitrus · Answer

CheminFichier.txt est la source du fichier, genre C:\MonProg\MonFichier.doc

Ici j'ai un problème sur l'envoie, quand je met PUT il met rien mais quand je met STOR il met le fichier mais à 0 Octets...
Par contre j'ai fais ce code :

Private Sub Bouton2_Click()
Dim Etat As String

'Chemin du dossier dans le serveur écrit à la main vu qu'il est connu
'Puis T_Societe est le nom de la société donc ce qui donnera le chemin exact où le fichier doit être déposé.
T_Dossier = T_Dossier & T_Societe
'-------------------------------------------------------------------------------------
'Copie du fichier dans le dossier e-Sauvegarde local
Dim S As String
S = Mid(T_FileCom.Text, InStrRev(T_FileCom.Text, "") + 1)
FileCopy T_Fichier.Text, App.Path & "\e-Sauvegarde" & S
SckFtp.SendData "Mkd " & T_Dossier & vbCrLf
'-------------------------------------------------------------------------------------
'Récupération du nom de fichier final
A = Left(Com.FileTitle, Len(Com.FileTitle) - 4) & Format(Now, "_ddmmyy_hhnn") & ".doc"
Text3 = A
'-------------------------------------------------------------------------------------
'Envoyer du fichier vers serveur
Etat = "STOR"
FicUp = A
FicNameUp = A
Open FicUp For Binary Access Read Lock Read Write As #1
strBuffer = Input(LOF(1), #1)
Close #1

'SckFtp.SendData "CD e-Sauvegarde"
'SckFtp.SendData "CD Societes"
'SckFtp.SendData "CD " & T_Dossier

SckFtp.SendData "STOR " & FicNameUp & vbCrLf
SckUp.Connect TxtServeur, Port
End Sub
Alors quand je met STOR, il envoie le fichier à la racine du serveur, donc dans la même place où se situe public_html
Il n'arrive pas à défiler dans le serveur. Et si malgré ce code j'active l'une des trois lignes :
'SckFtp.SendData "CD e-Sauvegarde"
'SckFtp.SendData "CD Societes"
'SckFtp.SendData "CD " & T_DossierIl refuse l'envoie même avec STOR/PUT

cs_Jack · Answer

Et qu'y a t-il dans FicNameUp au moment de la commande STOR ?
Le fichier existe t-il localement, sur le répertoire par défaut de l'appli ?
Quelle taille fait ce fichier ?

Et ... comment gères-tu les réponses du serveur ? Et que lui réponds-tu ?
Je ne vois rien à ce sujet.

Ton appli est largement incomplète !
Prends la peine de faire des recherches sur le site avec "ftp winsock" avant de dire que ça ne marche pas.

Si c'est la programmation qui t'intéresse, poursuit ton programme et approfondis tes connaissances sur le protocole FTP.
Si c'est le résultat qui compte le plus à tes yeux, le plus rapide serait d'appliquer des solutions qui fonctionnent, comme <celle-ci>

Sinsitrus · Answer

Merci Jack pour le temps que tu m'accordes.
Voici une part du projet en pièce jointe à télécharger d'ici

Dans les normes tout est réglé, mais le seul hic c'est de copier l'e fichier dans le dossier adéquat.
Si tu peux prendre la peine d'y jeter un œil ça sera vraiment sympa.

cs_Jack · Answer

Non Sinsitrus.
Le but des sites de Codes-Sources est de fournir des exemples et de l'aide, mais c'est au membre de programmer. Le résultat / le bon fonctionnement de l'application vient en second plan.
Tout ce que tu cherches à faire est déjà sur le site. C'est à toi d'apprendre.

J'ai jeté un oeil à ta source et, comme je le pensais, tu n'as pas traité les réponses envoyées par le serveur.
Il faut impérativement que tu te renseignes sur le fonctionnement des échanges lors d'une connexion FTP.

Un exemple flagrant : J'ai lancé ton appli.
Au démarrage, elle tente de se connecter.
Par sécurité, mon parefeu me demande à chaque fois si j'autorise ou pas la communication de mes programmes. Là, j'ai refusé que VB6 communique.
--> La fenêtre m'affiche "Connexion établie" : C'est faux

Je le répète : je genre de source existe déjà sur le site, je t'ai donné quelques liens.

Urgent, Transférer un fichier sur FTP

12 réponses

Votre réponse

Discussions similaires