pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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.

Revenir à la page des exemples évolués


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