Private Sub PopulateTreeView()
      Dim Laufwerk As String = "Z:\INT\Data\CustomerSolutions\CS\"
      TreeView1.Nodes.Clear()
      Dim Project = Me.ComboBox_Projektnummer.Text
      If Project.length = 7 Then
         Dim folder = Project.substring(0, 5) + "xx"
         Dim rootPath = Laufwerk + "\" + Me.ComboBox_Land.Text + "\" + _
           folder + "\" + Project + "\" + Me.ComboBox_Version.Text
         Dim ndRoot = TreeView1.Nodes.Add(rootPath)
         ndRoot.Nodes.Add(Laufwerk_engineering)
         ndRoot.Nodes.Add(Laufwerk_design)
         ndRoot.Nodes.Add(Laufwerk_assembly)
         ndRoot.Nodes.Add(Laufwerk_aftersales)
         ndRoot.Nodes.Add(Laufwerk_pictures)
         ndRoot.Nodes.Add(Laufwerk_engineering)
      End If
      For Each nd As TreeNode In TreeView1.Nodes(0).Nodes
         MessageBox.Show(nd.FullPath)
      Next
   End Sub

(Rechtschreibfehler urheberrechtlich geschützt)