With TreeView1.Nodes
    Do Until .Count = 0
      .Remove .Count
    Loop
End With

Public Sub AddFile(Optional FolderName As String)
 
 
    Dim MyPath As String
    Dim MyName As String
    Dim MyFile As String
 
    MyPath = FolderName
    If Right$(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If
 
    TreeView1.Nodes.Clear '---> nur einmal möglich
 
    TreeView1.Nodes.Add , , MyPath, "Ordner", 1, 1
 
    MyName = Dir(MyPath, vbDirectory)
    Do While MyName <> ""
        If MyName <> "." And MyName <> ".." And Left(MyName, 1) <> "_" Then
            If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
                TreeView1.Nodes.Add MyPath, tvwChild, MyPath & MyName & "\", _
                  MyName, 1, 1
            End If
        End If
        MyName = Dir
    Loop
 
    MyFile = Dir(MyPath & "*.doc")
    Do While MyFile <> ""
        TreeView1.Nodes.Add MyPath, tvwChild, "|" & MyPath & MyFile, MyFile, 2, _
          2
        MyFile = Dir
    Loop
End Sub

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]