Microsoft Access Beispiele -- Datenbankentwicklung mit Microsoft Access und Lotus Notes, Tipps und Tricks, Downloads

Wie überprüft man, ob eine Datei vorhanden ist?

Function ExistiertDatei(strFileName As String) As Boolean

Dim strgefunden As String

   ExistiertDatei = False
   strgefunden = VBA.Dir(strFileName)

   If Len(strgefunden) = 0 Then
      ExistiertDatei = False
   Else
      ExistiertDatei = True
   End If

End Function

Zum Aufrufen der Funktion verwenden Sie folgenden Code:

   If ExistiertDatei("C:\test.txt") Then
      MsgBox "Die Datei ist vorhanden."
   Else
      MsgBox "Die Datei ist nicht vorhanden."
   End If

Sie können statt dem direkten Pfad ("C:\test.txt") auch eine Variable mit dem Pfad & Dateiname übergeben.

Zurück zu Tipps und Tricks

Datenschutzerklärung