Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

HINWEIS

HINWEIS

Kapitel 11: Dateien und Verzeichnisse

Ermitteln aller Verzeichnis-Eigenschaften

Neben den Laufwerkseigenschaften dürften auch die Informationen über einzelne Verzeichnisse von Inter-

esse sein. In diesem Zusammenhang spielt die Methode GetFolder eine Schlüsselrolle, sie gibt ein so ge-

nanntes Folder-Objekt zurück, über dessen Eigenschaften Sie Zugriff auf Datum, Größe, Name etc.

erhalten.

Verzeichnis-Eigenschaften feststellen

Sub Test()

Dim myfso As FileSystemObject

Dim myf1 As Folder

Set myfso = CreateObject("Scripting.FileSystemObject")

Set myf1 = myfso.GetFolder(".")

Debug.Print myf1.Name

Debug.Print "Erzeugt am : " & CStr(myf1.DateCreated)

Debug.Print "Letzter Zugriff am: " & CStr(myf1.DateLastAccessed)

Debug.Print "Letzte Änderung am: " & CStr(myf1.DateLastModified)

Debug.Print "Kurzname: " & CStr(myf1.ShortName)

Debug.Print "Kurzpfad: " & CStr(myf1.ShortPath)

Debug.Print "Größe: " & CStr(myf1.Size)

Set myfso = Nothing

End Sub

Abbildung 11.3 Das Ergebnis im Direktfenster

Die Eigenschaft Size gibt die Verzeichnisgröße inklusive aller Unterverzeichnisse zurück. Verwenden Sie diese

Eigenschaft mit Bedacht, da es bei vielen Dateien und Verzeichnissen zu entsprechenden Wartezeiten kommen kann.

Wer doch noch kurze Dateinamen (16-Bit-Anwendungen) braucht, kann sich der Eigenschaften Short-

Name und ShortPath bedienen.

Eine Sonderrolle kommt dem Folder ».« zu, es handelt sich um das gerade aktive Verzeichnis (siehe obiges

Beispiel). Beachten Sie jedoch, dass Sie mit GetFolder lediglich Unterverzeichnisse eines Laufwerks abfragen können. Wenden

Sie die Methode auf die Root des Laufwerks an, kommt es beim Abruf der Folder-Eigenschaften zu einem Laufzeitfehler!

Auflisten aller Unterverzeichnisse eines bestimmten Folders

Ähnlich wie beim Zugriff auf die Laufwerke (Drives) ist auch hier nur die Verwendung eines For Each-

Konstrukts möglich.

690