Dim Name1 As String
    Dim Pfad1 As String
    Dim nodX As Node
    Dim Name2 As String
    Dim Pfad2 As String
 
    Pfad1 = "N:\"
    Name1 = Dir(Pfad1, vbDirectory)
 
    trvProjekte.LineStyle = tvwRootLines  ' Linestyle 1
 
    Do While Name1 <> ""   ' Schleife beginnen.
        ' Aktuelles und übergeordnetes Verzeichnis ignorieren.
        If Name1 <> "." And Name1 <> ".." Then
            ' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
            ' Verzeichnis ist.
            If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
                Set nodX = trvProjekte.Nodes.Add(, , Name1, Name1)
                Pfad2 = Pfad1 & Name1 & "\"
                Name2 = Dir(Pfad2, vbDirectory)
                Do While Name2 <> ""
                    If Name2 <> "." And Name2 <> ".." Then
                        If (GetAttr(Pfad2 & Name2) And vbDirectory) = _
                          vbDirectory Then
                            Set nodX = trvProjekte.Nodes.Add(Name1, tvwChild, _
                            Name2, Name2)
                        End If
                    End If
                    Name2 = Dir
                Loop
            End If   ' um ein Verzeichnis handelt.
        End If
        'ChDir Pfad1
        Name1 = Dir '(Pfad1, vbDirectory)   ' Nächsten Eintrag abrufen.
    Loop