DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des fichiers externes
  • 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
Version minimum requise
  • Version 10
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale