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