PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Lister tous les répertoires
Lister tous les répertoires
Started by gege40, Sep., 16 2004 6:39 PM - 2 replies
#1
Posted on September, 16 2004 - 6:39 PM
Bonjour,

Comment lister tous les répertoires contenus dans un répertoire (même si certains répertoires sont vides ) ?

Merci à tous
#2
Posted on September, 16 2004 - 6:57 PM
Voila un exemple de code que l'on m'avait donné sur le sujet :


Ce code va lister tous les sous-répertoires vides d'un répertoire donné.

sRacine, SousRep sont des chaînes
sRacine = "C:\Mes Projets"

//Compilation d'une procédure de callback sans code
//Elle ne servira qu'à appeler la fonction du W-language fListeFichier()
Compile("pseudoproc","")

SousRep = fRep(sRacine+"\*.",frRépertoire)
TANTQUE SousRep <> ""
SI fListeFichier(sRacine+"\"+SousRep+"\*.*","pseudoproc") = 0 ALORS
//Aucun fichier dans le sous répertoire
Trace("Le sous-répertoire "+sRacine+"\"+SousRep+" est vide.")
FIN
SousRep = fRep("",frRépertoire)
FIN

Antoine

gilbert40 wrote:
Bonjour,

Comment lister tous les répertoires contenus dans un répertoire (même
si certains répertoires sont vides ) ?

Merci à tous
#3
Posted on September, 16 2004 - 7:11 PM
Voir la fonction fListeFichiers, je l'ai utilisé pour faire cela.
Attention, bien lire l'aide en ligne ...!
→ Go back to WINDEV 2024