Заполнение TreeView из текстовой строки - Visual Basic .NET

Формулировка задачи:

Добрый день. Никак не могу осилить премудрость работы с TreeView. Вот задача такая. Заполнять дерево некими событиями, происходящими с файлами в папках. При возникновении события в качестве данных есть две переменных: 1. путь к файлу вида FName="C:\Work\Events\test.txt". Неизменная часть "C:" 2. Само событие Event="переименование", "создание", "открытие" и т.д. И, требуется заполнить дерево в таком, примерно виде: [-]C: ......[-]Work .........[-]Events .............[-]test.txt ................переименование ................создание ................открытие В начале слежки очищаю дерево и задаю верхнюю ветвь

EventTree.Nodes.Clear()
EventTree.Nodes.Add("C:")

по свершению события:

        FName=FName.Replace("C:\","")        
        Dim EventPath() As String = Split(FName, "\") ' разделить путь на имена папок
        Dim Cntr = 1
        For Each Itm In EventPath
            EventTree.Nodes.Item(Cntr - 1).Nodes.Add(Itm) ' добавить каждую папку в предыдущую
' тут где-то еще надо бы иметь проверку, не существует ли уже данная ветвь
            Cntr = Cntr + 1
        Next

но ничего не происходит. помогите, как заполнять дерево вложенными ветками, а в последнюю созданную ветку добавить текст события Event?

Решение задачи: «Заполнение TreeView из текстовой строки»

textual
                            Листинг программы 
                        

                                Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
 
        FileDialog.InitialDirectory = ComboBox1.Text
        If FileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
 
            Dim Pth() As String = Split(FileDialog.FileName, "\")
            Pth(0) = Pth(0) & "\"
 
            AddTreeViewItem(Pth)
 
            EventTree.ExpandAll() ' раскрытие всех узлов
        End If
    End Sub
 
Public Sub AddTreeViewItem(ByVal item() As String)
        Dim nodes As TreeNodeCollection = EventTree.Nodes
 
        For i As Integer = 0 To item.Length - 1
            nodes = If(nodes.Find(item(i), False).Length > 0, nodes.Find(item(i), False)(0).Nodes, nodes.Add(item(i), item(i)).Nodes)
        Next i
    End Sub
                        