fListeFichier(sPath, "ListeFichier")
// Code de la procédure "ListeFichier" appelée automatiquement
// pour tous les fichiers (call-back)
Procédure ListeFichier(sChemin, sNomFichier,bChange,Pointeur)
Trace(sChemin+sNomFichier)
// Si besoin de limiter l'exploration au répertoire, sans ses sous-répertoires :
SI bChange = flChangeRépertoire ALORS RENVOYER Faux