J'en profite pour vous faire un petit bonjour. Il y a si longtemps que je ne suis intervenu sur ce forum: je ne programme plus qu'épisodiquement

J'ai un problème très basique. Je charge un TreeView avec l'arborescence d'un disque dur et je souhaiterais y rechercher un nœud (donc un sous-répertoire) afin de le mettre en exergue (par un BackGroundColor). Mais pour cela, il faut retrouver le nœud dans le TreeView... Et c'est là que je pêche !

J'ai trouvé sur internet ce bout de code qui m'a séduit par sa simplicité, mais je ne parviens pas à le faire réagir:

Code VB.NET : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub ChecherNoeud(ByRef TreeView1 As TreeView, ByVal TextAChercher As String)
 
        Try
            Dim tn As TreeNode() = TreeView1.Nodes(0).Nodes.Find(TextAChercher, True)
 
            For i As Integer = 0 To tn.Length - 1
                TreeView1.SelectedNode = tn(i)
                TreeView1.SelectedNode.BackColor = Color.Yellow
            Next
 
        Catch
        End Try
    End Sub

J'ai tenté de l'interroger par un "FulPath" (ex :"H:\Nos_Photos\1973") ou par le simple nœud (ex : "1973"). Mais ça répond toujours avec tn.Length = 0.
Est-ce que je m'y prend mal, ou est-ce que ce code ne fonctionne pas ?
Merci d'avance pour vos suggestions.