UpsFts.ClientFtp.ListerFichiers


Rappel ListerFichiers(NomRepertoire : Caractere, ListeFichiers : Nul Ou ListeDe FichierListe Sortie);

Description

La méthode de rappel ListerFichiers est appelée dès lors que le client désire lister les fichiers du serveur.

Le paramètre NomRepertoire est le nom du répertoire sur le serveur écrit en relatif ou en absolu. Le paramètre ListeFichiers doit recevoir la liste des fichiers demandée.

La valeur de retour doit suivre la convention de fonctionnement de l'énuméré RappelReponse.

Cette méthode de rappel correspond à la réception des commandes LIST ou NLST du protocole File Transfer Protocol (FTP).

Exemple


/****************************************************************/

Rappel ClientFtp.ListerFichiers(NomRepertoire : Caractere, ListeFichiers : Nul Ou ListeDe FichierListe Sortie)

/* Objet : Liste les fichiers du répertoire. */

/****************************************************************/

Variable

/******/

   MonClient : MonClientFtp;

   NomRepertoire2 : Caractere;

   F : FichierListe;



Debut
MonClient=MonClientFtp(LireExtension("AppFts"));

NomRepertoire2=Translater(MonClient, NomRepertoire);

Si ActiverJournal Alors

   EcrireJournal(MonClient, "ListerFichiers("+NomRepertoire+")");

Fin Si

Si UpsSys.IlExisteFichier(NomRepertoire2) Alors

   F.NomFichier=UpsSys.ExtraireNomFichier(NomRepertoire2);

   F.EstUnRepertoire=Faux;

   F.DroitsUtilisateur=UpsSys.LireDroitsDAcces(NomRepertoire2, F.DroitsGroupe, F.DroitsAutres);

   F.Taille=LireCaracteristiquesFichier(NomRepertoire2, ?, ?, F.DateDernierAcces, F.DateDerniereModification, F.DateCreation, F.EstCache);

   ListeFichiers=ListeDe(F);

Sinon

   ListeFichiers=UpsSys.ListerFichiers(NomRepertoire2);

Fin Si

Retourner RappelSucces;

Fin Rappel

Traduction


-	-	-	-	-	-	-	-	-