ok, versuchen wir es noch einmal
anderer Link
|
VisualBasic Quellcode
|
1
2
3
4
5
6
7
8
9
|
Dim tr As New TreeView
tr.Dock = DockStyle.Fill
tr.Nodes.Add("Erde")
tr.Nodes(0).Nodes.Add("Amerika")
tr.Nodes(0).Nodes.Add("Asien")
tr.Nodes(0).Nodes.Add("Afrika")
tr.Nodes(0).Nodes.Add("Australien")
tr.Nodes(0).Nodes.Add("Europa")
Me.Controls.Add(tr)
|
Die erste Zeile brauchst du nicht hinzuschreiben, wenn du einen TreeView Element auf deine UserForm ziehst und es tr benennst.
tr.Nodes -> Knoten der 1. Ebene
tr.Nodes(0).Nodes -> Knoten der 2. Ebene vom 1. Knoten
tr.Nodes(0).Nodes(42).Nodes -> Knoten der 3. Ebene vom 1. Knoten
usw.
Funktionen zum auslesen sind meine ich
|
VisualBasic Quellcode
|
1
|
My.Computer.Filesystem.GetFiles()
|
und
|
VisualBasic Quellcode
|
1
|
My.Computer.Filesystem.GetDirectories()
|
darin mit ForEach iterieren und die elemente ablegen.
Um alle Dateien festzuhalten musst du entweder Rekursiv arbeiten oder ziemlich Ressourcenverschwenderisch
also mit Pseudocode:
|
VisualBasic Quellcode
|
1
2
3
|
for each blubb as new directory in my.computer.filesystem.getdirectories(startpfad)
tr.node.add(blubb.name)
next
|
so ungefähr. dann hättest du schonmal die ordner aus der ersten ebene drin.
dann halt dateien als knoten einfügen und die ordner knoten einfach erweitern, indem du jeden ordner nochmal durchgehst.
mfG