Exemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
|
Le code suivant permet d'afficher dans une champ de type liste (ListeFichiers) l'ensemble des fichiers présents dans un répertoire spécifié.
|
||
|
--Code de clic sur BtnListeFichier
// Déclaration de la variable ResFichier est une chaîne // Les fichiers présents dans le répertoire "C:\MesRépertoires\MesFichiers" // sont affichés dans la liste "ListeFichiers" ResFichier = fRep ("C:\MesRépertoires\MesFichiers\*.*", frFichier ) TANTQUE ResFichier <> "" ListeAjoute(ListeFichiers, ResFichier) ResFichier = fRep ("", frFichier ) FIN
|
||
|
Le code suivant permet d'afficher dans une champ de type liste (ListeFichiers) l'ensemble des fichiers présents dans un répertoire spécifié.
|
||
|
--Code de clic sur BtnListeFichier
// Déclaration de la variable ResFichier est une chaîne // Les fichiers présents dans le répertoire "\MesRépertoires\MesFichiers" // sont affichés dans la liste "ListeFichiers" ResFichier = fRep ("\MesRépertoires\MesFichiers\*.*", frFichier ) TANTQUE ResFichier <> "" ListeAjoute(ListeFichiers, ResFichier) ResFichier = fRep ("", frFichier ) FIN
|
Auteur: Patrick Biker