� 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