Nicht nur die Existenz einer Datei können Sie prüfen,
     auch das Vorhandensein eines Verzeichnisses können Sie ermitteln:

 ERFORDERLICHE OBJEKTE

   -- keine --
 FORM-CODE

   Function DirExists(Pfad) As Boolean
      Dim ret As Integer
      On Error Resume Next
      ret = GetAttr(Pfad)
      DirExists = IIf(ret = 0, True, False)
   End Function

   Private Sub Form_Load()
      MsgBox DirExists("C:\EIGENE DATEIEN")
      End
   End Sub