Comment obtenir la liste des répertoires d'un répertoire

// Les fichiers présents dans le répertoire courant
// sont affichés dans la liste "ListeFichiers"
ResFichier = fRep(completeRep(fRepEnCours())+"*.*", frRepertoire)
TANTQUE ResFichier <> ""
   ListeAjoute(ListeFichiers, ResFichier)
   ResFichier = fRep("", frFichier)
FIN

Florent MARULAZ nous a aussi proposé en une seule ligne

sRepertoire est une chaine = "c:\temp\*.*"
ListeAjoute(ListeFichiers,Remplace(ExtraitChaîne(NetListeRep (sRepertoire),1,RC),TAB,RC)