PC SOFT

DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

  • Connaître le nombre de répertoires cachés
fListeRépertoire (Exemple)
Connaître le nombre de répertoires cachés
WINDEVEtats et RequêtesWindowsJavaCode Utilisateur (MCU)
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", ...
&nbRepertoiresLS)
// 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
PROCEDURE 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