Discussion :

[christophe9117]

Bonjour,

Je souhaite effectuer une arborescence de répertoires style "explorateur windows" allant jusqu'aux fichiers... Pour cela j'essaie de prendre appuie sur l'exemple livré avec windev "wd tables hierarchiques java", qui permet déjà d'afficher toute l'arborescence des répertoires.

Je souhaiterais par exemple qu'à la place de l'attribut fichier présent dans la col commentaire de l'exemple, apparaisse les fichiers présents dans le dossier ou sous dossier de gauche, mais je ne vois quel bout de code utiliser pour que cela fonctionne. j'ai beau essayer flistefichier dans tous les sens, mais soit je le positionne mal, soit cela ne suffit pas, bref, c'est la galère... quelqu'un pourrait-il m'aider un peu svp... voici le code original de la fenêtre sans modif :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 
 
// Remplissage
sListeRépertoires est une chaîne
sRépertoire est une chaîne
dhDateHeure est une DateHeure
nDernierParent est un entier
sDernierParent est une chaîne
sRépertoireComplet est une chaîne
nLigne est un entier
 
 
sRépRacine est une chaîne = fRepSélecteur("","Veuillez sélectionner le répertoire dont vous voulez lister le contenu.")
 
SI sRépRacine = "" ALORS RETOUR
 
// Récupère la liste des répertoires contenus dans le répertoire spécifié
sListeRépertoires = fListeRépertoire(sRépRacine)
 
sNomRép est une chaîne = ExtraitChaîne(sRépRacine,1,ComplèteRep(""), DepuisFin) 
 
 
// Racine
TableAjouteLigne(TABLEH_DOSSIERS,sNomRép , ...
ComplèteRep(sRépRacine), ...
"", ...
fDate(sRépRacine, "", fModification) + fHeure(sRépRacine, "", fModification), ...
 AttributsRepertoire(sRépRacine))
 
// Parcours chaque répertoire retourné
POUR TOUTE CHAÎNE sRépertoire DE sListeRépertoires SEPAREE PAR RC
 
	// Récupère la date et heure de dernière modification
	dhDateHeure = fDate(sRépertoire, "", fModification) + fHeure(sRépertoire, "", fModification)
 
	// Recherche le dossier parent 
	sDernierParent = sRépertoire[[A PositionOccurrence(sRépertoire, "\", rangDernier)]]
	nDernierParent = TableCherche(COL_Cache, sDernierParent)
 
	// Formate le nom du répertoire
	sRépertoireComplet = ComplèteRep(sRépertoire)
	sRépertoire = Remplace(sRépertoire, sRépRacine, sNomRép)
 
	// Ajoute le dossier
	nLigne = TableAjouteFils(TABLEH_DOSSIERS, nDernierParent, ...
	ExtraitChaîne(sRépertoire, rangDernier, "\"), ...
	sRépertoireComplet,  ...
	"",  ...
	dhDateHeure,  ...
	AttributsRepertoire(sRépertoireComplet))
 
FIN
 
ExécuteTraitement(TABLEH_DOSSIERS, trtSélection)

merci à vous

[christophe9117]

L'exemple treemap répond à ma question...