:
Private Sub Expand(ByVal sPath As String)
Dim objNode As TreeNode
Dim preNode As TreeNode = tFolder.Nodes(0)
preNode.Expand()
Dim sSpl() As String = sPath.Replace("\\", "\").Split("\")
For i As Integer = 1 To sSpl.Length - 1
For Each objNode In preNode.Nodes
If objNode.Text = sSpl(i) Then
objNode.Expand()
preNode = objNode
Exit For
End If
Next
Next
End Sub