Treeview Ordner und Dateien
16.11.2006 16:55:07
Cold
brauche hilfe (verständnisproblem). das auslesen der ordner klappt ja super. ein lob der suche im forum. nur weiß ich nicht weiter wie man in den ordnern die dateien ausliest und diese dann mit
Treeview1.Nodes.Add(relative:=name1, _
relationship:=tvwChild, _
Text:=wks.name)
ndeSecond.Sorted = True
hinzufügt.
hier der code aus der VBhilfe mit dem ich die ordner auslese
Sub test()
Pfad1 = ThisWorkbook.Path & "\" ' Pfad setzen.
name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen.
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
' MsgBox name1 ' Eintrag nur anzeigen, wenn es sich
With Userform1.TreeView1.Nodes.Add(Text:=name1)
End With
End If ' um ein Verzeichnis handelt.
End If
name1 = Dir ' Nächsten Eintrag abrufen.
Loop
End Sub
hoffe ich hab mich klar ausgedrückt.
gruß TC