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

Messages postés
57
Date d'inscription
samedi 30 mars 2002
Statut
Membre
Dernière intervention
24 mars 2003
- - Dernière réponse : cs_freegamer
Messages postés
99
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
16 juin 2007
- 8 janv. 2005 à 21:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4574-debutants-utilisez-un-treeview-maj-avec-le-bon-zip

Afficher la suite 
cs_jeanyves
Messages postés
57
Date d'inscription
samedi 30 mars 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
Merci pour les débutants dont je suis...
Jean yves
cs_jeanyves
Messages postés
57
Date d'inscription
samedi 30 mars 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
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
cs_JoBleu
Messages postés
91
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
21 février 2015
-
Ce code a-t-il réellement été testé avant d'être publié ?
Il ne paraît pas certain, en tout cas sous Windows 98 et VB6, que la fonction Dir() puisse s'employer dans une fonction récurrente. Dès qu'on a fini de traiter le premier répertoire qui ne contient pas de sous-répertoire, la fonction Dir() est à nouveau appelée, dans le répertoire parent, alors qu'elle vient de retourner une chaîne vide, aussi elle retourne une erreur.

Et on est devant, les bras ballants, à se demander ce qu'on va faire ...
cs_JoBleu
Messages postés
91
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
21 février 2015
-
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
cs_JoBleu
Messages postés
91
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
21 février 2015
-
Le chargement de l'arborescence dans un "Treeview" peut être motivé par la nécessité de faire sélectionner un répertoire par l'utilisateur.

Pour cela on pourra aussi se référer au lien suivant :
http://www.mvps.org/accessfr/apis/api0002.htm