Microsoft Office Access 2007-Programmierung - Das Handbuch

Abbildung 11.23 Zusatzdialogfeld beim Kopieren von Dateien

Einen Verzeichnisbaum in eine TreeView einlesen

TreeView-Control: Nodes-Auflistung: Add-, Clear-Methode, Count-Eigenschaft; FileSystemObject-Objekt:

Folder-Eigenschaft, GetFolder-Methode;

Das TreeView ist ein ActiveX-Control (Microsoft TreeView Control 6.0) und Bestandteil des Office-Pakets.

Es eignet sich naturgemäß ideal zur Anzeige von Verzeichnisstrukturen.

Zum Einlesen eines Verzeichnisbaums kann folgende, sich rekursiv selbst aufrufende Funktion dienen:

Private Sub einlesen(path As Folder, Parent As Node)

On Error GoTo ende

Dim fld As Folder, n As Node

For Each fld In path.SubFolders

Set n = TreeView1.Nodes.Add(Parent.Key, tvwChild,"c" & CStr(TreeView1.Nodes.Count + 1), fld.Name)

einlesen fld, n ' rekursiver Aufruf!

Next fld

ende:

Resume Next

Exit Sub

End Sub

Anzeigen des kompletten Verzeichnisbaums für Laufwerk C:

Dim FSO As New FileSystemObject

TreeView1.Nodes.Clear

einlesen FSO.GetFolder("c:\"), TreeView1.Nodes.Add(, , "c1", "c:\") ' Root-Verzeichnis anpassen!

741

Praxisbeispiele