// Déclaration et initialisation des variables

// Nombre de répertoires répondant aux critères
NbRepertoireLS est un entier  
NbRépertoire est un entier = 0
CritèreRecherche est une chaîne
// Sélection du répertoire dans lequel les répertoires vont être listés
CritèreRecherche = fRepSélecteur("", "Sélectionner un répertoire", ...
		"Recherche des répertoires cachés")
// Liste des répertoires
NbRepertoireLS = fListeRépertoire("C:\MesDocuments", "AttributRépertoire", ...
		&NbRepertoireLS)
// Affichage du nombre de fichiers répondant aux critères
Info("Il y a " + NbRepertoireLS + " répertoires cachés sur " + ...
		NbRépertoire + " répertoires listés")

// --------------------------------------------------------
// Procédure locale appelée par la fonction fListeRépertoire
PROCÉDURE AttributRepertoire(Répertoire, Nom, Change, NbRepertoire)
// Déclaration de la variable
NbRepertoireLS est un entier
// Répertoire caché ?
SI Position(fAttribut(Répertoire + Nom), "H") <> 0 ALORS
	Transfert(&NbRepertoireLS, NbRepertoire, 4)
   	NbRepertoireLS ++
   	Transfert(NbRepertoire, &NbRepertoireLS, 4)
   	// Affichage du nom du répertoire dans la liste "LISTE_ListeFichier"
   	ListeAjoute(LISTE_ListeFichier, Répertoire + Nom)
FIN
RENVOYER Vrai