Microsoft Office Access 2007-Programmierung - Das Handbuch

BEISPIEL

BEISPIEL

Kapitel 11: Dateien und Verzeichnisse

Abfragen des Temp-/System-/Windows-Verzeichnisses

Im Zusammenhang mit dem Installieren von Dateien und dem Sichern von Informationen sind für den

Programmierer auch drei Verzeichnisse von Interesse. Die Rede ist vom System-, Windows- sowie vom

Temp-Verzeichnis. Alle drei Verzeichnisnamen können Sie direkt über die GetSpecialFolder-Methode des

FileSystemObjects abrufen.

Anzeige von System-, Windows-, Temp- und aktuellem Verzeichnis

Dim myfso As FileSystemObject, myf1 As Folder, myf2 As File

Set myfso = CreateObject("Scripting.FileSystemObject")

Debug.Print "Systemverzeichnis :" & myfso.GetSpecialFolder(SystemFolder)

Debug.Print "Windowsverzeichnis :" & myfso.GetSpecialFolder(WindowsFolder)

Debug.Print "Tempverzeichnis :" & myfso.GetSpecialFolder(TemporaryFolder)

Debug.Print "Akt. Verzeichnis :" & myfso.GetFolder(".")

Set myfso = Nothing

Abbildung 11.7 Ausgabe im Direktfenster

Prüfen, ob eine Datei existiert

VBA verfügt leider über keine Funktion, mit der Sie das Vorhandensein einer Datei testen können. Abhilfe

schafft eine »selbst gebastelte« Funktion:

Function FileExist (dateiname As String) As Boolean

On Error GoTo fehler:

FileExist = Dir$(dateiname) <> ""

Exit Function

fehler:

FileExist = False

Resume Next

End Function

Die Verwendung obiger Funktion

Dim db As Database

If Not FileExist("C:\TEST.ACCDB") Then

MsgBox "Datenbank nicht gefunden!", 16, "Problem"

Exit Sub

Else

Set db = OpenDatabase("C:\TEST.ACCDB", False, False)

End If

694