[WD10]Arborescence comme l'exporateur

Pascal ROY a écrit :

Bonjour,

Est-il possible avec Windev de créer, avec le minimum de code, un
treeview des dossiers, comme dans l'explorateur de windows ?

Voila c'est tout ! ;-)

Oui, c'est très facile a faire, j'ai un bout de code à la maison, je le
posterai ce soir.

gg

Jerome PAULIN a écrit :

Pascal ROY a écrit :

Bonjour,

Est-il possible avec Windev de créer, avec le minimum de code, un
treeview des dossiers, comme dans l'explorateur de windows ?

Voila c'est tout ! ;-)

Oui, c'est très facile a faire, j'ai un bout de code à la maison, je le
posterai ce soir.

gg

gsCheminRacine="c:"
ArbreSupprimeTout(ARBRE_Arbre1)
fListeFichier(gsCheminRacine+"*.*","affiche_fichiers")
ArbreDérouleTout(ARBRE_Arbre1)
ArbreTrie(ARBRE_Arbre1)

PROCEDURE affiche_fichiers(Repertoire,Nom)
ArbreAjoute(ARBRE_Arbre1,gsCheminRacine+TAB+Remplace(Remplace(Repertoire+Nom,gsCheminRacine,""),"",""+TAB),type_fichier(Nom))


gg

Jerome PAULIN a écrit :

Jerome PAULIN a écrit :

Pascal ROY a écrit :

Bonjour,

Est-il possible avec Windev de créer, avec le minimum de code, un
treeview des dossiers, comme dans l'explorateur de windows ?

Voila c'est tout ! ;-)

Oui, c'est très facile a faire, j'ai un bout de code à la maison, je
le posterai ce soir.

gg

gsCheminRacine="c:"
ArbreSupprimeTout(ARBRE_Arbre1)
fListeFichier(gsCheminRacine+"*.*","affiche_fichiers")
ArbreDérouleTout(ARBRE_Arbre1)
ArbreTrie(ARBRE_Arbre1)

PROCEDURE affiche_fichiers(Repertoire,Nom)
ArbreAjoute(ARBRE_Arbre1,gsCheminRacine+TAB+Remplace(Remplace(Repertoire+Nom,gsCheminRacine,""),"",""+TAB),type_fichier(Nom))



gg

Merci,
Mais ce n'est pas exactement ce que je cherche.
J'aimerais avoir, dans mon Arbre, un truc comme ça

Bureau
---Mes Documents
------Mes Images
----------Photos Vacances 2004
----------Photos Vacances 2005
---Poste de Travail
------C:(Systeme)
---------Program Files
---------Windows
------D:(Donnees)
---------Mes Donnees Windev

Voila. Uniquement les dossiers, afin que quand on sélectionne un dossier
j'affiche dans une zone répétée les infos que je veux sur les fichiers du
dossier.

Pasca
--
Pascal ROY
(Service Informatique - SODALEC)

>
Merci,
Mais ce n'est pas exactement ce que je cherche.
J'aimerais avoir, dans mon Arbre, un truc comme ça

Bureau
---Mes Documents
------Mes Images
----------Photos Vacances 2004
----------Photos Vacances 2005
---Poste de Travail
------C:(Systeme)
---------Program Files
---------Windows
------D:(Donnees)
---------Mes Donnees Windev

Voila. Uniquement les dossiers, afin que quand on sélectionne un dossier
j'affiche dans une zone répétée les infos que je veux sur les fichiers du
dossier.

Pasca

Salut,

C'est écrit dans l'aide de fListeFichier, il suffit de modifier une
ligne et de mettre :

fListeFichier(gsCheminRacine+".","affiche_fichiers")

au lieu de

fListeFichier(gsCheminRacine+"*.*","affiche_fichiers")


Cordialement,

gg

Sans ses moufles, Pascal ROY a écrit :

Mais ce n'est pas exactement ce que je cherche.
Voila. Uniquement les dossiers, afin que quand on sélectionne un dossier
j'affiche dans une zone répétée les infos que je veux sur les fichiers du
dossier.

http://centrewd.free.fr/?page=ficheapi&t=f&n=SHBrowseForFolder

Gégé a écrit :

Sans ses moufles, Pascal ROY a écrit :

Mais ce n'est pas exactement ce que je cherche.
Voila. Uniquement les dossiers, afin que quand on sélectionne un
dossier j'affiche dans une zone répétée les infos que je veux sur les
fichiers du
dossier.

http://centrewd.free.fr/?page=ficheapi&t=f&n=SHBrowseForFolder

Merci, mais cette procedure ouvre une fenêtre, elle ne permet pas
de créer un Arbre, enfin si j'ai bien compris ;-)

--
Pascal ROY
(Service Informatique - SODALEC)