Discussion :

[devalender]

Bonjour à tous

Dans le cadre d'un nouveau projet, je suis en de construire un mini explorateur de répertoires et de dossiers.
A l'aide d'un champ arbre je liste les dossiers et les sous dossiers d'un Workplace que j'aurai défini au préalable.

Voici mon Workplace en image :


et lorsque je parcours mon Workplace :


Voici mon code (emprunter sur un forum )pour l'affichage dans mon champ Arbre :

A l'initialisation de ma fenêtre :

Code :

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

1
2
 
MonChemin est une chaîne ="C:\MON DOSSIER\"

Dans mon bouton :

Code :

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

1
2
fListeRépertoire(MonChemin, "ProcRepertoire")
ArbreDérouleTout(ARBRE_Répertoires)

Le code de ma procédure ProcRepertoire():

Code :

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

1
2
3
4
5
6
7
8
9
PROCÉDURE ProcRepertoire(vrl_chemin, vrl_rep)
chRep est une chaîne
// On enléve le début du chemin
chRep = Remplace(vrl_chemin,MonChemin,"") + vrl_rep
 
// on remplace "\" par TAB (caract(9))
chRep = Remplace(chRep,"\",Caract(9))
 
ArbreAjoute(ARBRE_Répertoires, "DOSSIER RACINE" + TAB + chRep)

Et Voici le résultat :


Mes problèmes sont les suivants :
1 - Comment Afficher MON DOSSIER à la place de DOSSIER RACINE ?
2 - Comment afficher les fichiers dans les Dossiers ou Sous Dossiers ?


Merci de m'aider.