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.

[laurent30s]

Pas sur d'avoir tout compris...

Tu peux regarder l'exemple "PC explorateur"

[wd_newbie]

c'est pas la ligne :

Code :

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

1
2
 
ArbreAjoute(ARBRE_Répertoires, "DOSSIER RACINE" + TAB + chRep)

qui ajouterait ce texte ?

[devalender]

Pour ceux que ca intéresseraient voici ce que j'ai trouver

Pour la première question, j'ai remplacé "DOSSIER RACINE" par ma variable MonChemin

Code :

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

1
2
3
4
5
6
7
8
 
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, MonChemin  + TAB + chRep)

Ensuite pour la deuxième question j'ai utilisé le code suivant (à optimiser)

Code :

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

1
2
3
4
5
6
 
....
chfile = fListeFichier(vrl_chemin+chRep+"\*.*")
POUR TOUTE CHAÎNE sFic DE chfile SÉPARÉE PAR RC
ArbreAjoute(ARBRE_Répertoires,  MonChemin + TAB + chRep + TAB + fExtraitChemin(sFic,fFichier + fExtension),"fichier.png","fichier.png")
FIN

Merci à tous