Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

BEISPIEL

HINWEIS

HINWEIS

Allerdings lässt sich einem zurückgelieferten Wert True nicht entnehmen, ob die Datenbank von Ihnen auch

exklusiv geöffnet werden kann. Es wird lediglich festgestellt, dass die Datei physisch vorhanden ist.

Verzeichnisse/Dateien kopieren/löschen

Zur Lösung dieser Aufgaben stellen Folder- bzw. File-Objekt der FSO entsprechende Methoden bereit:

Methode Beschreibung

Copy Übergeben Sie das Zielverzeichnis bzw. den Zieldateinamen. Optional können Sie auch bestimmen, ob vorhandene

Dateien/Verzeichnisse überschrieben werden (Default-Einstellung) oder nicht.

Move Übergeben Sie das Zielverzeichnis bzw. den Zieldateinamen.

Delete Optional können Sie bestimmen, ob Read-Only-Attribute der Datei/des Verzeichnisses ignoriert werden.

Tabelle 11.2 Methoden von Folder- und File-Objekten zum Kopieren, Verschieben und Löschen

Löschen des TEMP-Verzeichnisses:

Sub Test()

Dim myfso As FileSystemObject

Dim myf1 As Folder

Set myfso = CreateObject("Scripting.FileSystemObject")

Set myf1 = myfso.GetFolder("C:\Temp")

myf1.Delete False

Set myfso = Nothing

End Sub

Beachten Sie, dass Folder im Gegensatz zu den bekannten DOS-Befehlen auch gelöscht werden, wenn sie nicht

leer sind. Ein Delete in der Root eines Laufwerks kann also verheerende Folgen haben.

Alternative Lösungen zum Kopieren und Löschen (unter Verzicht auf die FSO) finden Sie im Praxisbeispiel »Die

Shellfunktionen verwenden« (Seite 737).

Auflisten aller Dateien eines Verzeichnisses

Geht es um das Setzen bzw. Lesen von Dateiattributen, Datum und Dateigröße, hilft Ihnen die Files-Auflis-

tung des Folder-Objekts weiter. Für unser Beispiel schreiben wir eine zusätzliche Funktion DecodeAttribute,

die uns dabei hilft, die Dateiattribute in einem String darzustellen. Für jedes gesetzte Attribut verwenden

wir einen Buchstaben.

Function DecodeAttribute(a As Long) As String

Dim s As String

If a And 1 Then s = s & "R" Else s = s & " " ' readonly

If a And 2 Then s = s & "H" Else s = s & " " ' hidden

If a And 4 Then s = s & "S" Else s = s & " " ' system

If a And 8 Then s = s & "V" Else s = s & " " ' volume

695

Zugriff auf das Dateisystem