lsLogin est une chaîne = "Indiquer ici un login valide"
lsServeurAdr est un chaîne = "Indiquer ici l'adresse d'un serveur FTP valide"
lsPassW est une chaîne = "Indiquer ici un mot de passe valide"
lsRéponse est une chaîne
nLlFicNb est un entier
lsListe est une chaîne
llConnId est un entier
Ch_Num est un entier

Ch_Num = 0
// On fait le FTPRécupére

llConnId = FTPConnecte(lsServeurAdr, lsLogin, lsPassW)
SI llConnId = -1 ALORS
Erreur("FTPConnecte('" + lsServeurAdr + "', '" + lsLogin + "', '" + lsPassW + "'). '" + ErreurInfo() + "'"); RETOUR
FIN

SI FTPCommande (llConnId,"SYST",lsRéponse) ALORS
Info("Information sur le système du serveur : "+ RC +lsRéponse)
SINON
Info("Le serveur n'accepte pas la commande SYST."+ ...
"L'information sur le système du serveur n'est pas disponible")
FIN
//demande de la liste des fichiers du répertoire courant
SI FTPCommande (llConnId,"LIST",lsRéponse, lsListe) ALORS
//voici la liste des fichiers du répertoire en cours sur le serveur
Info("Voici la liste des fichiers du répertoire"+ ...
" en cours sur le serveur : "+ RC +lsListe)
FIN

SI PAS FTPDéconnecte(llConnId) ALORS
Erreur("FTPDéconnecte(" + llConnId + "). '" + ErreurInfo() + "'")
FIN