Discussion :

[Tchupacabra]

Bonjour,

Je souhaite lister dans une table tous les dossiers sans fichier d'un gros répertoire.
ça marche à moitié car si dans un dossier sans fichier (A) il y a un dossier vide (B), j'ai les 2 dossiers de listé :
C:\TEST\A
C:\TEST\A\B
alors que je ne veux que celui du plus bas niveau : C:\TEST\A

Code :

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

1
2
3
4
5
6
7
sRep, sRepertoires, sFichiers sont des chaînes
 
sRepertoires = fListeRépertoire("C:\TEST")
POUR TOUTE CHAÎNE sRep DE sRepertoires SEPAREE PAR RC
	sFichiers = fListeFichier(sRep+"\*", frRécursif)
	SI sFichiers = "" ALORS TableAjouteLigne(TABLE, sRep)
FIN

Auriez-vous une idée ? un exemple ?

Merci d'avance !!!

[michel.souris]

Ce que je ferais :

Lister les fichiers présents (de façon récursive) sur le premier niveau de l'arborescence en premier lieu.

S'il n'y a aucun fichier alors ça en sert à rien de lister les répertoires (pour avoir le premier niveau de l'arborescence).
S'il y a des fichiers lister les sous-répertoires et leurs appliquer le même traitement !

[Tchupacabra]

Merci pour ton aide Michel...

malheureusement soit j'ai pas compris l'idée soit je ne vois pas comment faire...
du point vu code, faut une fonction qui s'appelle récursivement ?

[michel.souris]

du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
PROCEDURE ListeRepertoireVide(rep="C:\Test")
liste_rep est une chaîne
 
IF NOT ControleRep(rep) THEN
	liste_rep=fListeRépertoire(rep)
	FOR EACH STRING dir OF liste_rep SEPARATED BY RC
		ListeRepertoireVide(dir)
	END
ELSE
	Trace(rep)
END

et

Code :

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

1
2
3
4
5
6
7
8
9
10
 
PROCEDURE ControleRep(pRep)
 
 
sFic est une chaîne = fListeFichier(ComplèteRep(pRep)+"*",frRécursif)
IF sFic = "" THEN
	RENVOYER True
ELSE
	RENVOYER False
END

C'est du vite fait mal fait donc à tester !!!

[jdsetls]

Bonjour,
Voici comment je fais dans un de mes programmes :

Code :

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

1
2
3
4
Initialise_le_listage() //des fichiers
r = fListeFichier(Mon_chemin_complet, "Traite_fichiers" )
Résultat_de_l_opération = i + " fichier(s) présent(s). Analyse terminée"
Calcule__la_durée()

La procédure traite_fichiers te donne la réponse :

Code :

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

1
2
3
4
5
6
7
8
9
PROCEDURE Traite_fichiers(chemin, nom_du_fichier2)
Mon_contenu += nom_du_fichier2 + CR
i += 1
Résultat_de_l_opération = i + " fichier(s) ou répertoire(s) présent(s.). Analyse en cours dans " + CR + chemin 
FenRepeint(Utilitaire)
CAS ERREUR:	
Zone_de_résultats  = ErreurInfo(errMessage)
CAS EXCEPTION:
Zone_de_résultats = ExceptionInfo(errMessage)

Si mon contenu est vide ( = "") alors ton répertoire est vide de fichier.
Et tu continue ta boucle.

Lister les répertoires

Code :

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

1
2
3
4
5
Initialise_le_listage() //des répertoires
fListeRépertoire(Mon_chemin, Traite_répertoires)
 //ne jamais, jamais!, utiliser de champ libellé dans les manipulations de chaînes
Résultat_de_l_opération = i + " répertoire(s) présent(s). Analyse terminée"
Calcule__la_durée()

En couplant les deux, tu obtiens ton résultats.
Cordialement
nb : Je peux t'envoyer mon utilitaire tout fait, il contient quelques bonus du type presse-papiers

[Tchupacabra]

Michel : Ton code affiche les sous-dossiers dont \A\B
J'ai remarqué que le parcours passe sur tous les dossiers de rang n puis n+1... Il ne parcours pas le dossier dans sa totalité. Est-ce une raison ?

jdsetls : J'essaye ça, merci.

[michel.souris]

Je ne sais pas ce qu'il se passe chez toi mais chez moi (je viens de tester) j'ai recréé l'arborescence que tu as défini et je liste uniquement les dossiers qui contiennent des dossiers vides ou qui sont vides sans lister leurs sous-répertoires (vides).... je te laisse adapter en fonction de tes besoins mais (pour moi) le principe est là !

[Tchupacabra]

Michel... je ne comprends pas.

Voici mon code :

Code :

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

RepVides("C:\a\")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PROCEDURE RepVides(sRep est une chaîne)
 
Trace("")
Trace("RepVides > "+sRep)
bResultat est un booléen = bRepVides(sRep)
SI PAS bResultat ALORS
	sRepertoires est une chaine = fListeRépertoire(sRep)
	POUR TOUTE CHAÎNE sDir DE sRepertoires SEPAREE PAR RC
		RepVides(sDir)
	END
SINON
	Trace(sRep+" -----------> sans fichier !")
FIN

et

Code :

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

1
2
3
4
5
6
7
8
PROCEDURE bRepVides(sRep)
 
sFic est une chaîne = fListeFichier(ComplèteRep(sRep)+"*", frRécursif)
SI sFic = "" ALORS
	RENVOYER Vrai
SINON
	RENVOYER Faux
END

Voici mon arborescence :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
C:\a\
C:\a\fichier-a.txt
C:\a\b1-vide\
C:\a\b2\
C:\a\b2\fichier-b2-1.txt
C:\a\b2\fichier-b2-2.txt
C:\a\b2\c1-sans-fichier\
C:\a\b2\c1-sans-fichier\d1-vide\
C:\a\b2\c2\
C:\a\b2\c2\fichier-c2-1.txt
C:\a\b2\c2\fichier-c2-2.txt
C:\a\b2\c2\d2-vide\

et voici mes traces :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
RepVides > C:\a\
 
RepVides > C:\a\b1-vide
C:\a\b1-vide -----------> sans fichier !
 
RepVides > C:\a\b2
 
RepVides > C:\a\b2\c1-sans-fichier
C:\a\b2\c1-sans-fichier -----------> sans fichier !
 
RepVides > C:\a\b2\c2
 
RepVides > C:\a\b2\c2\d2-vide
C:\a\b2\c2\d2-vide -----------> sans fichier !
 
RepVides > C:\a\b2\c1-sans-fichier\d1-vide
C:\a\b2\c1-sans-fichier\d1-vide -----------> sans fichier !
 
RepVides > C:\a\b2\c2\d2-vide
C:\a\b2\c2\d2-vide -----------> sans fichier !
 
RepVides > C:\a\b2\c1-sans-fichier
C:\a\b2\c1-sans-fichier -----------> sans fichier !
 
RepVides > C:\a\b2\c2
 
RepVides > C:\a\b2\c2\d2-vide
C:\a\b2\c2\d2-vide -----------> sans fichier !
 
RepVides > C:\a\b2\c1-sans-fichier\d1-vide
C:\a\b2\c1-sans-fichier\d1-vide -----------> sans fichier !
 
RepVides > C:\a\b2\c2\d2-vide
C:\a\b2\c2\d2-vide -----------> sans fichier !

Bizarrement, certains dossiers sont parcourus 2 fois !

[michel.souris]

Ce qui me rassure c'est les résultats sont exacts !!!
Par contre passe tout ça au débugueur et tu trouveras !

[Tchupacabra]

oui ils sont exacts...
mais il me liste un dossier qui ne doit pas : "C:\a\b2\c1-sans-fichier\d1-vide"
car "c1-sans-fichier" ne contient aucun fichier

[michel.souris]

Ok je pense avoir compris il faut que le fListeRepertoire ne soit pas récursif (donc option frNonRécursif) afin d'éviter les doubles entrées et le listing des sous-réps...

[Tchupacabra]

non...
ça change rien

[michel.souris]

je viens de tester chez moi ça change tout... je parle de la récursivité pour la fonction fListeRepertoire()

[Tchupacabra]

je viens de tester chez moi ça change tout... je parle de la récursivité pour la fonction fListeRepertoire()

le boulet que je suis !!!!!
effectivement l'option frNonRécursif pour fListeRepertoire() dans la procédure RepVides() change tout au résultat !
et pas comme j'avais essayé pour fListeFichier()...

Merci Michel !