Private Sub FillTreeNode(ByVal dNode As TreeNode)
        Try
            Dim d As New DirectoryInfo(dNode.FullPath)
            Dim FilesItem As FileInfo() = d.GetFiles()
 
            ' Zeige die Namen der Files
            Dim Files As FileInfo
 
            For Each di As DirectoryInfo In d.GetDirectories
                Dim nNode As New TreeNode(di.Name)
                dNode.Nodes.Add(nNode)
                nNode.Nodes.Add("")
            Next
 
            For Each Files In FilesItem
                dNode.Nodes.Add(Files.Name)
                'dNode.Nodes.Add("*")
            Next
 
        Catch : End Try
    End Sub