Discussion :

[Detonio]

Salut à tous,

Je me suis mis en tête de réussir un TreeView comme celui de l'explorateur Windows.
J'ai donc ma racine : "BUREAU" contenant mon "POSTE DE TRAVAIL", "MES DOCUMENTS", "VOISINAGE RESEAU" et les dossiers qu'il contient.

Tout mes noeuds ont comme clé le chemin du dossier qu'ils représentent. Malheureusement je ne peut pas ouvrir à la fois un noeud ici de Mes documents et un noeud ici de documents & settings car j'obtiens le même clé.

J'aimerais savoir si quelqu'un a une solution a mon problème, a part utiliser les tags car je les utilisent déja pour savoir si le noeuds a déja été parcouru.


Merci de votre aide

[zazaraignée]

Salut

Tu m'excuseras de répondre par des questions. C'est pour avoir plus de détails sur ton problème.

On peut voir le bout de code qui pose problème ?

As-tu regardé les tutoriels sur le treeView ?

[Detonio]

J'ai en effet regarder le Tutoriel du TreeView mais je en trouve pas la solution a mon problème ... malheureusement !

Concernant le code voici ma fonction qui ajoute des dossiers dans le TreeView :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Sub SearchFolders(ByVal Node As Node)
 
    '============================================================
    'Affiche les différents sous-dossiers présent dans un dossier
    '============================================================
 
    Dim SubFolder As folder 'Variable servant à parcourir tout les sous-dossiers
    Dim SubNode As Node     'Variable permettant l'ajout d'un nouveau noeud si nécéssaire
    Dim TypeD As String     'Différents attributs des sous-dossiers
 
    On Error GoTo Err1
 
    'On parcours tout les sous-dossiers du noeud en cours
    If InStr(Node.Key, "N") Then Exit Sub
    For Each SubFolder In fso.GetFolder(Node.Key).SubFolders
        'On vérifie que le dossier n'est pas caché
        TypeD = FolderFileAttributs(SubFolder)
        If InStr(TypeD, "G") = 0 Then
            Set SubNode = FrmMain.TreeView.Nodes.Add(Node, tvwChild, SubFolder.Path, SubFolder.Name, 1, 2)
            haveSubDirectories SubFolder.Path, SubNode
        End If
    Next
    SearchShortcutFolders Node
 
Exit Sub
 
Err1:
MsgBox "Erreur : " & Str(Err.Number) & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Erreur N°" + Str(Err.Number)
Call Initialize 'Ré-initialisation de l'arbre
 
End Sub

Mon problème est que je veut stocker 3 informations pour chaque noeud (s'il a déja été parcouru, si il s'agit d'un dossier spécial, et son chemin réel) et que ne peut les stocker que dans deux "variables" : Le Tag et la Key. J'utilise la Key pour le chemin ce qui parait le plus logique mais lorsqu'il existe un raccourci ou un autre dossier ayant le même chemin j'ai un problème.

[LiBasic]

Pourquoi ne met tu pas le chemin complet dans les clé ?
Sinon essayes de fermer les dossiers ouverts lors de l' ouverture d' un autre dossier..

[Detonio]

Mais je mets le chamin complet : C'est le

Code :

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

SubFolder.Path

Mais le problème c'est que si tu as un "Mes Documents" sur le bureau la clé des dossiers contenus à l'intérieurs sera :
"C:\Documents and Setting\Session\Mes Documents\ ..."
Et lorsque tu parcours ton arbre on obtiendra le même dossier dans "C:\Documents and Setting\Session\Mes Documents\ ..." il y a donc un conflit :S

Quant a la solution de fermer les autres dossiers quand j'en ouvre un n'est pas du tout ce que je recherche ... désolé

[LiBasic]

Oui c' est vrai que parfois la solution de simplicité m' envahit
Et si tu rajoutais un petit quelque chose dans les clé des dossiers ?
Par exemple essayes d' ajouter dans la clé ton tag..
Sinon je vois pas trop...

[Vld44]

En parcourant rapidement ton code, je m'aperçois d'une erreur qui n'a rien avoir avec le problème initial mais qui en est pourtant un :

Instr renvoie un ENTIER, donc ceci

Code :

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

If InStr(Node.Key, "N") Then Exit Sub

ne marchera pas.

Pour preuve :

Code :

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

1
2
?(1 = true)
False

Donc :

Code :

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

1
2
?(cbool(1) = true)
True

Et sinon, essaie de remplacer les espaces par quelque chose d'autre dans tes clés ... C'est souvent qu'ils posent problème. Utilise un caractère atypique par contre, peu utilisé (pour préserver l'unicité)

A+