Discussion :

[thierrybatlle]

Bonjour,

Je bataille depuis plusieurs jours pour envoyer des fichiers par FTP.

Fonctionnement :
Je sélectionne dans un tableau des fichiers ou des dossier à envoyer.
Si c'est un fichier je crée le répertoire distant pour le stocker au bon endroit.
Si c'est un répertoire je l'envoie directement.

Mais cela ne marche pas. J'ai une erreur "impossible de créer le dossier distant" lors de l'envoie d'un fichier dans un dossier inexistant.
Pour l'envoie de dossier cela ce passe mieux.

Voici le contenu de mes variables :
sFichierClient = "C:\IDSHIELD\com\idshield\utilities\files\regimeVisasFra\casParticuliersFrench.txt" ==> Correspond au fichier client

sFichierServeur = "/IDSHIELD" ==> Correspond au répertoire de destination

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
19
20
21
22
23
24
25
26
27
 
LOCAL
	sPathServeur 	est une chaîne
	sTemp			est une chaîne
 
// on effectue une copie Local vers Distant
 
SI fExtraitChemin(sFichierClient, fExtension) <> "" ALORS
	sTemp = fExtraitChemin(sFichierClient,fRépertoire)
	sTemp = Remplace(sTemp, "\", "/")
	sTemp = Gauche(sTemp, Taille(sTemp) - 1)
	FTPRepCrée(nNumConnexion, sTemp)
	sPathServeur = sTemp
SINON
	sPathServeur = sFichierServeur
FIN
 
FTPRepEnCours(nNumConnexion, sFichierServeur)
 
gbEtatEnvoie = FTPEnvoie(nNumConnexion,sFichierClient,sFichierServeur,TransfertEnCours,FTPModeBinaire)
 
Ferme()
 
CAS ERREUR:
	// On affiche le message d'erreur
	Erreur(ChaîneConstruit("Echec lors du transfert de <%1> vers <%2>.", sFichierClient, sFichierServeur), ErreurInfo(errRésumé))
	Ferme()

Merci de votre aide.

[frenchsting]

Est ce qu'il ne voudrait pas copier ton fichier dans \IDSHIELD\com\idshield\utilities\files\regimeVisasFra\ et que tu n'as créé que \IDSHIELD\ ?

[thierrybatlle]

Au départ sur mon serveur n'existe q'un seul et unique dossier :
/IDSHIELD

Ensuite lors des transferts je ne sais pas les dossiers qui existent ou pas.

Le but est donc de les créer si il n'existe pas.

Merci bien.

[frenchsting]

Je regarde ton code en diagonale mais un truc me parait bizarre : tu n'utilises pas sPathServeur.

Code :

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

1
2
3
sPathServeur = sFichierServeur
et après
FTPRepEnCours(nNumConnexion, sFichierServeur)

C'est pas un

Code :

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

FTPRepEnCours(nNumConnexion, sPathServeur)

que tu dois faire ?

[thierrybatlle]

Oui j'ai corrigé :

Code :

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

1
2
 
gbEtatEnvoie = FTPEnvoie(nNumConnexion,sFichierClient,sPathServeur,TransfertEnCours,FTPModeBinaire)

Mais cela ne marche pas bien selon que j'envoie un fichier ou un dossier ?

Si c'est un fichier seul il doit me recréer l'arborescence.

Je ne comprend pas.

Merci bien.