|
|
|
|
- Exemple de valeurs pouvant être prises par le paramètre
- Interruption complète de la fonction fListeRépertoire
Procédure WLangage appelée par la fonction fListeRépertoire Procédure (également appelée "Callback") appelée par la fonction fListeRépertoire pour chaque fichier trouvé. Cette procédure peut être une procédure locale, globale ou interne. // 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
Syntaxe
<Résultat> = fListeRépertoire_Callback(<Chemin> , <Nom du répertoire> [, <Change> [, <Pointeur de la procédure>]])
<Résultat> : Booléen - Vrai pour continuer le parcours des fichiers,
- Faux pour forcer l'interruption du parcours des fichiers.
<Chemin> : Chaîne de caractères Chemin du répertoire manipulé (il contient toujours un "\" à la fin; par exemple, "C:\Mes Fichiers\"). <Nom du répertoire> : Chaîne de caractères Nom du répertoire trouvé. <Change> : Constante optionnelle de type Entier Permet de savoir si un changement de répertoire a été effectué. Les valeurs possibles sont les suivantes : | | flChangeRépertoire | Le répertoire est le premier listé dans un sous-répertoire de <Chemin> (cela signifie qu'il y a eu changement de répertoire). | flRépertoire | Tous les autres cas. |
<Pointeur de la procédure> : Entier optionnel Valeur passée dans le paramètre <Pointeur> de la fonction fListeRépertoire. Si le paramètre <Pointeur> n'est pas précisé dans la fonction fListeRépertoire, <Pointeur de la procédure> vaut 0.Pour récupérer la valeur du <Pointeur de la procédure>, affectez la valeur du <Pointeur de la procédure> à la valeur du <Pointeur> dans la procédure avec la fonction Transfert (voir Exemple détaillé accessible en haut de page). Remarques Exemple de valeurs pouvant être prises par le paramètre <Change> Lors du parcours des fichiers listés par la fonction fListeRépertoire, voici les différentes valeurs pouvant être prises par <Change> : | | Répertoire en cours | <Change> |
---|
Rep\Répertoire 1 | flRépertoire | Rep\Répertoire n | flRépertoire | Rep\SousRep 1\Répertoire 1 | flChangeRépertoire | Rep\SousRep 1\Répertoire m | flRépertoire | Rep\SousRep 2\Répertoire 1 | flChangeRépertoire | Rep\SousRep 2\Répertoire x | flRépertoire |
Interruption complète de la fonction fListeRépertoire Tant qu'il y a des fichiers à parcourir, la fonction fListeRépertoire ne peut pas être interrompue. Pour forcer l'interruption du parcours complet, utilisez la ligne suivante dans la procédure : Dans ce cas, la fonction fListeRépertoire retourne le nombre de répertoires parcourus jusqu'à l'appel de "Renvoyer Faux". Dans les autres cas (pour poursuivre le parcours), la procédure <Nom de la procédure> DOIT renvoyer Vrai. Si la procédure <Nom de la procédure> retourne aucune valeur (ni Vrai, ni Faux), une erreur est générée. Composante : wd290std.dll
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|