DÉBUTANTS : UTILISEZ UN TREEVIEW(MAJ AVEC LE BON ZIP)

Commentaire de jeanyves le 21/09/2002 07:38:03

J'ai testé mais le prog ne fonctionne pas. Il y a une erreur sur la dernière instruction Myname=Dir ???
Peux-tu me guider ?
jy

Commentaire de JoBleu le 22/09/2002 13:50:57

Ce module a fonctionné sur ma machine.
Le but était de charger l'arbre "noeud par noeud".
Le prochain qui s'intéresse à la question nous dit comment on charge plus vite l'arborescence d'un disque vers un "Treeview".

___________________________
Option Explicit
Dim objmso As Object

Private Sub Form_Load()
Form1.Caption = "Arborescence du disque"
Set objmso = CreateObject("Scripting.FileSystemObject")

Dim mNode As Node
   Set mNode = Tree.Nodes.Add()
   mNode.Text = "Bureau"
   ' Définit la propriété Tag.
   mNode.Tag = "Bureau"
   ' Définit la propriété Image.
   'mNode.Image = numrech
   mNode.Key = "BUR"
      
      Set mNode = Tree.Nodes.Add(1, tvwChild)
      mNode.Text = "C"
      mNode.Tag = "C"
      'mNode.Image = numrech
      mNode.Key = "C"
      
create_treefile objmso.GetFolder("c:"), 2
End Sub

Public Sub create_treefile(objSFic As Object, sindex As Double)
Dim objSsrep As Object
Dim MyName As String
Dim mNode As Node

For Each objSsrep In objSFic.SubFolders
    Debug.Print objSsrep.Name, objSsrep.Attributes
    Set mNode = Tree.Nodes.Add(sindex, tvwChild)
    mNode.Text = objSsrep.Name
    mNode.Tag = objSsrep.Name
    create_treefile objSsrep, mNode.Index
Next
End Sub

Commentaire de Lolux le 23/09/2002 10:12:57

Désolé pour le zip mais je m'étais trompé...

La source que j'avais mise à la place était un vieux test perso pour vérifier le comportement de Dir() en récurent... comme vous avez pu le constater... c'est pas terrible.

Le zip a été modifié et le but du prog et bien plus simple.

Encore désolé... J'vai aler faire 100 pompes pour me punir !

Au fait, pour les arbos dans des treeview, il y a un bon exemple dans le source du gagnant du dernier concours. Allez y jetez un oeil si ça vous interresse.

A plouch !

Commentaire de moumoule17 le 08/10/2004 14:12:16

Mais c'est nickel , bravo lolux !
tu m'a bien aidé