Discussion :

[nanox]

Bonjour à tous,

Je développe actuellement une application dans laquelle j'effectue des traitements sur les fichiers d'un dossier.
Je souhaiterai intégrer une jauge qui indiquerait à l'utilisateur l'état d'avancement de ces traitements.

Petit soucis: je n'arrive pas a récuperer le nombre de fichier contenus dans un dossier.

J'avais essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
nbfichier est un entier=0
UnFichier, ResListeFichier sont des chaînes
ResListeFichier = fListeFichier(Chemin du dossier,frNonRécursif)
POUR TOUTE CHAINE UnFichier DE ResListeFichier SEPAREE PAR RC
	nbfichier++
FIN

J'ai fait pas mal de recherche(aide, internet), mais je n'ai rien trouvé à ce sujet.
Je me tourne donc vers vous.
Merci d'avance.

[klbsjpolp]

Bonjour,

Je crois que ton problème vient de ce que tu mets dans ton paramètre "Chemin du dossier". La fonction liste des fichiers respectant un chemin générique et non le contenu d'un dossier. Lit bien l'aide.

[nanox]

Bonjour klbsjpolp,

merci pour ton aide.
En effet, le problème venait du chemin du dossier.
En rajoutant le type de fichier, ça marche bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ResListeFichier = fListeFichier(Chemin du dossier+"\*.txt",frNonRécursif)

[Bowen]

Et pendant qu'on y est, le nombre de retours chariots dans ta chaine te donne le nombre de fichiers, pas la peine de les compter un par 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
nbfichier est un entier
ResListeFichier est une chaîne
ResListeFichier = fListeFichier(Chemin du dossier,frNonRécursif)
SI ResListeFichier > 0 alors nNbFichier = 1 + ChaineOccurrence(ResListeFichier, RC)

[zonavach38]

Pour avoir le nombre total de fichiers, quels qu'ils soient:

MonRepertoire= ComplèteRep(MonRepertoire)

//Compte_Rep est une procédure vide, mais permet d'avoir un Nbre de fichiers
NbreFichiers est un entier = fListeFichier(MonRepertoire+ "*.*","Compte_Rep")
NbreFichiers = NbreFichiers - 1 // renvoie tjs 1 de plus que le Nbre de fichiers, si 0 fichiers, renvoie 1

Voilà