Private Sub PopulateTreeView()
 
        Dim Project As String = ""
        Dim folder As String = ""
        Dim Laufwerk As String = "Z:\INT\Data\CustomerSolutions\CS\"
        Dim rootNode As TreeNode
 
        TreeView_Explorer.Nodes.Clear()
        Project = Me.ComboBox_Projektnummer.Text
        If Microsoft.VisualBasic.Len(Project) = 7 Then
            folder = Microsoft.VisualBasic.Left(Project, 5) + "xx"
            path_engineering = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
              folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
              Laufwerk_engineering
            path_design = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + folder _
            + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_design
            path_assembly = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
            folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_assembly
            path_aftersales = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
            folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_aftersales
            path_pictures = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
            folder + "\" + Project + "\" + Me.ComboBox_Version.Text + "\" + _
            Laufwerk_pictures
            path2 = Laufwerk + Me.ComboBox_Land.Text + "\" + folder + "\" + _
            Project + "\" + Me.ComboBox_Version.Text
 
            TreeView_Explorer.Nodes.Add(path2)
 
            Dim info_engineering As New DirectoryInfo(path_engineering)
            If info_engineering.Exists Then
                rootNode = New TreeNode(info_engineering.Name)
                rootNode.Tag = info_engineering
                GetDirectories(info_engineering.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_design As New DirectoryInfo(path_design)
            If info_design.Exists Then
                rootNode = New TreeNode(info_design.Name)
                rootNode.Tag = info_design
                GetDirectories(info_design.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_assembly As New DirectoryInfo(path_assembly)
            If info_assembly.Exists Then
                rootNode = New TreeNode(info_assembly.Name)
                rootNode.Tag = info_assembly
                GetDirectories(info_assembly.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_aftersales As New DirectoryInfo(path_aftersales)
            If info_aftersales.Exists Then
                rootNode = New TreeNode(info_aftersales.Name)
                rootNode.Tag = info_aftersales
                GetDirectories(info_aftersales.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
            Dim info_pictures As New DirectoryInfo(path_pictures)
            If info_pictures.Exists Then
                rootNode = New TreeNode(info_pictures.Name)
                rootNode.Tag = info_pictures
                GetDirectories(info_pictures.GetDirectories(), rootNode)
                TreeView_Explorer.Nodes.Add(rootNode)
                rootNode.Expand()
            End If
 
        End If
 
    End Sub