FTP AS400 - récupérer fichiers pdf
Bonjour à tous,
J'ai besoin de récupérer par FTP des fichiers pdf. Seulement, le transfert ne fonctionne pas.
Dans un premier temps, j'ai essayé avec la commande ftprecupere. Je me suis rendu compte qu'il fallait à priori sur un as400 utiliser la fonction ftpcommande.
Juste pour info, sur un ftp classique, j'arrive bien à récupérer des fichiers.
Ma connexion ftp sur mon as400 est ok. Par contre, le transfert, je n'y arrive pas.
J'ai essayé avec la commande "LIST" Ca, c'est ok.
Pour récupérer des fichiers, j'ai vu qu'il fallait utiliser la commande "RETR" Mais c'est là que j'ai mon souci.
Premièrement, je n'arrive pas à comprendre comment dire de récupérer le ou les fichiers dans un répertoire local.
Mais que je regarde l'aide de Windev ou sur internet, après de nombreux tests, la récupération met impossible de mon côté.
Code:
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
28
29
30
31
|
nConnexion est un entier
nConnexion = FTPConnecte("192.168.0.1", "user", "mdp")
Trans_ftp est un booléen
wreponse est une chaîne
MaListe est une chaîne
SI nConnexion = -1 ALORS
Info("Erreur de connexion", "Vérifiez le paramétrage FTP")
SINON
wrep est une chaîne = "/rep/dossier/Modif.pdf"
wrep_dest est une chaîne = "C:\TEST"
//Trans_ftp = FTPRécupère(nConnexion, wrep, wrep_dest) //Ici test sur un ftp classique OK
FTPRepEnCours(nConnexion,"/MaBib/AS400")
//Trans_ftp = FTPCommande(nConnexion,"LIST",wreponse,MaListe,ftpModeASCII) //Commande list OK
Trans_ftp = FTPCommande(nConnexion,"RETR",wreponse,MaListe,ftpModeASCII) //Commande KO ==> Comment spécifier le chemin de destination. Et pourquoi la commande est fausse ?
SI Trans_ftp = Vrai ALORS
//RENVOYER Vrai
Info("Voici la liste des fichiers du répertoire en cours sur le serveur : " + RC + MaListe)
SINON
Erreur(ErreurInfo(errMessage))
FIN
FIN
FTPDéconnecte(nConnexion) |
Merci par avance.
