TreeView дерево папок. Как перейти к определенной папке

Imports System.Runtime.InteropServices
Imports System.IO
 
Public Class Form1
 
    Private TreeView1 As TreeView
    Private Button1 As Button
    Private ImageList1 As New ImageList
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As IntPtr
        Public dwAttributes As UInteger
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
        Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
        Public szTypeName As String
    End Structure
 
    Private Class Win32
        Public Const SHGFI_ICON As UInteger = &H100
        Public Const SHGFI_LARGEICON As UInteger = &H0
        Public Const SHGFI_SMALLICON As UInteger = &H1
        <DllImport("shell32.dll")> _
        Public Shared Function SHGetFileInfo(ByVal pszPath As String, ByVal dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, ByVal cbSizeFileInfo As UInteger, ByVal uFlags As UInteger) As IntPtr
        End Function
    End Class
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(512, 512)
 
        TreeView1 = New TreeView With {.ImageList = ImageList1, _
                                       .Location = New Point(5, 5), _
                                       .Size = New Size(500, 400)}
        AddHandler TreeView1.BeforeExpand, AddressOf treeView1_BeforeExpand
        AddHandler TreeView1.NodeMouseDoubleClick, AddressOf treeView1_NodeMouseDoubleClick
        Me.Controls.Add(TreeView1)
 
        Button1 = New Button With {.Location = New Point(10, 430)}
        AddHandler Button1.Click, AddressOf Button1_Click
        Me.Controls.Add(Button1)
 
        GetAllDrives()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
 
    Private Sub GetAllDrives()
        Dim drives As DriveInfo() = DriveInfo.GetDrives()
        For Each drive As DriveInfo In drives
            Dim rootTreeNode As New TreeNode()
            rootTreeNode.Text = drive.Name
            rootTreeNode.Tag = drive.Name
            rootTreeNode.ImageIndex = GetIconOfFile_Folder(drive.Name)
            rootTreeNode.SelectedImageIndex = rootTreeNode.ImageIndex
            rootTreeNode.Nodes.Add(" ")
            TreeView1.Nodes.Add(rootTreeNode)
        Next
    End Sub
 
    Private Function GetIconOfFile_Folder(ByVal Path As String) As Integer
        Dim hImgSmall As IntPtr
        Dim shinfo As New SHFILEINFO()
        hImgSmall = Win32.SHGetFileInfo(Path, 0, shinfo, CUInt(Marshal.SizeOf(shinfo)), Win32.SHGFI_ICON Or Win32.SHGFI_SMALLICON)
        Dim myIcon As System.Drawing.Icon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
        ImageList1.Images.Add(myIcon)
        Return ImageList1.Images.Count - 1
    End Function
 
    Private Sub treeView1_BeforeExpand(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs)
        e.Node.Nodes.Clear()
        GetFilesAndFolder(e.Node, DirectCast(e.Node.Tag, String))
    End Sub
 
    Private Sub GetFilesAndFolder(ByVal tn As TreeNode, ByVal Path As String)
        Try
            Dim Directories As String() = Directory.GetDirectories(Path)
            Dim Files As String() = Directory.GetFiles(Path)
 
            For Each dir As String In Directories
                Dim dirTreeNode As New TreeNode()
                dirTreeNode.Tag = dir
                dirTreeNode.Text = New DirectoryInfo(dir).Name
                dirTreeNode.ImageIndex = GetIconOfFile_Folder(dir)
                dirTreeNode.SelectedImageIndex = dirTreeNode.ImageIndex
                dirTreeNode.Nodes.Add(" ")
                tn.Nodes.Add(dirTreeNode)
            Next
 
            For Each file As String In Files
                Dim fileTreeNode As New TreeNode()
                fileTreeNode.Tag = file
                fileTreeNode.Text = New FileInfo(file).Name
                fileTreeNode.ImageIndex = GetIconOfFile_Folder(file)
                fileTreeNode.SelectedImageIndex = fileTreeNode.ImageIndex
                tn.Nodes.Add(fileTreeNode)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub
 
    Private Sub treeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs)
        If CheckIfPathIsFile(e.Node.Tag.ToString()) = True Then
            MsgBox(e.Node.Tag.ToString())
        End If
    End Sub
 
    Private Function CheckIfPathIsFile(ByVal Path As String) As Boolean
        Dim attr As FileAttributes = File.GetAttributes(Path)
        If (attr And FileAttributes.Directory) = FileAttributes.Directory Then
            Return False
        Else
            Return True
        End If
    End Function
End Class

        Dim nodeArray() As TreeNode = TreeView1.Nodes.Find("Gif", True)
        TreeView1.SelectedNode = nodeArray(0)
        TreeView1.Focus()

    Sub Search(ByVal Fol As String, ByVal Node As TreeNode)
        For Each S As String In IO.Directory.GetDirectories(Fol, "*.*", SearchOption.TopDirectoryOnly)
            Dim TmpNode As New TreeNode(IO.Path.GetFileName(S))
            TmpNode.ImageIndex = 0
            TmpNode.Name = TmpNode.Text
            Node.Nodes.Add(TmpNode)
 
            Search(S, TmpNode)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim sDir = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).Split("\")
        Dim Node = FindNode(TreeView1.Nodes, sDir(0) + "\")
        Try
            For i = 1 To sDir.GetUpperBound(0)
                If Node.IsExpanded = False Then Node.Expand()
                Node = FindNode(Node.Nodes, sDir(i))
            Next
        Catch
        End Try
        TreeView1.SelectedNode = Node
        TreeView1.Focus()
    End Sub
 
    Private Function FindNode(ByVal NC As TreeNodeCollection, ByVal t As String) As TreeNode
        For Each N As TreeNode In NC
            If N.Text = t Then Return N
        Next
        Return Nothing
    End Function