|
|
|
|
|
|
|
|
|
|
- Connaître le nombre de répertoires cachés
fListeRépertoire (Exemple)
Connaître le nombre de répertoires cachés Le code suivant permet de connaître le nombre de répertoires cachés dans un répertoire sélectionné par l'utilisateur. Le répertoire est sélectionné grâce à la fonction fRepSélecteur. // 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
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|