Добрый день!
Заранее прошу прощения что пишу в ваш форум а не в VB.NET, но нужна помощь которую я всегда получал в вашем форуме. Пишу прогу на VB.net все функции готовы чтоб закончить прогу, осталась одна функция на 6 vb она реализованна(гдето взял пример), не могу ее переделать под VB.NET.

Задачка такая
вводим например root\1\2\3 и root\1\2\4 строится дерево
root
+---1
+------2
+--------3
---------4
модифицировал код под Net
ввожу вышеописанный путь получаю результат
root
+---1
+------2
+--------3
root
+---1
+------2
+--------4

сам код

Public Sub AddPathToTree(Tree As TreeView, Path As String)
Dim PathItem As String
Dim NewItem As String
Dim PathLen As Integer
Dim c As String
Dim i As Integer

'Добавляем обратный слэш в качестве разледителя
If Right$(Path, 1) <> "\" Then Path = Path & "\"

PathLen = Len(Path)

'vb net
Dim ob As TreeNode
'Ищем в полном пути обратные слэши
For i = 1 To PathLen
c = Mid$(Path, i, 1)

If c = "\" Then
If PathItem = "" Then
'Добавляем корневую ветвь в дерево

' VB6
'On Error Resume Next
'Tree.Nodes.Add , , "\" & NewItem, NewItem

'VB NET
ob = Tree.Nodes.Insert(0, NewItem)

PathItem = "\" & NewItem
Else
'Добавляем следующую дочернюю ветвь
' VB6
Tree.Nodes.Add PathItem, tvwChild,PathItem_ & "\" & NewItem, NewItem

'VB NET
ob = ob.Nodes.Add(NewItem)
PathItem = PathItem & "\" & NewItem
PathItem = PathItem & "\" & NewItem
End If
NewItem = ""
Else
NewItem = NewItem & c
End If
Next i
End Sub

Плиз помогите!

Тема закрыта.
Кому интересно, код выложен на форуме VB.NET
/topic/302264