Description...
Exemple...
Voir aussi...
Traduction...
Fonction Optimiser(NulAbsorbant) LireArborescenceAnnuaire(Chemin : Nul Ou Caractere) Retourner Nul Ou ListeDe Caractere;
.
.
La racine de l'arborescence est identifiée par un chemin vide "".
Procedure AfficherContenuAnnuaire(A: Nul Ou Annuaire, Chemin : Caractere)
/********************************************************************/
/* Affiche le contenu de l'annuaire recursivement. */
Variable
ListeEntrees : Nul Ou ListeDe Caractere;
NomEntree : Nul Ou Caractere;
Debut
Si Chemin!="" Alors
Ecran.Ecrire(Chemin);
Fin Si
ListeEntrees=A.LireArborescenceAnnuaire(Chemin);
Si ListeEntrees!=Nul Alors
Pour NomEntree=ListeEntrees.ParcoursAuDebut() JusquA ListeEntrees.DernierElement() Faire
Si Chemin!="" Alors
AfficherContenuAnnuaire(A, Chemin+"."+NomEntree);
Sinon
AfficherContenuAnnuaire(A, NomEntree);
Fin Si
Fin Pour
Fin Si
Fin Procedure
Principal
Debut
AnnuaireLocal.AfficherContenuAnnuaire("");
Fin Principal
VerzeichnisBaumLesen | ReadDirectoryTree | 读了目录树 | LeerArbolDirectorio | - | - | - | - |