Microsoft Access Programmierrezepte

R8.6 Prüfen, ob eine Datei existiert

Aufgabe

Leider verfügt VBA über keine Funktion, mit der Sie das Vorhandensein einer Datei testen können. Lasst uns Abhilfe schaffen!

Lösung

Wir schreiben eine eigene Funktion FileExist, in welcher wir die Dir-Standardfunktion verwenden. Letztere gibt eine Zeichenfolge zurück, die dem ersten Dateinamen entspricht, der mit dem übergebenen Argument übereinstimmt.

Oberfläche

Ein Textfeld, zwei Bezeichnungsfelder und zwei Befehlsschaltflächen genügen zum Testen der Funktion.

Quellcode

Option Explicit

Public Function FileExist (dateiname As String) As Boolean
 On Error GoTo fehler:
 FileExist = Dir$(dateiname) <> ""
 Exit Function
fehler:
    FileExist = False
    Resume Next
End Function

Unser Testaufruf:

Private Sub Button0_Click() ...