' Einfacher Ersatz f�r file_exists() aus PHP

DECLARE FUNCTION DateiExistiert% (d$)

INPUT "Dateiname"; d$

IF DateiExistiert(d$) THEN
  PRINT "Datei "; d$; " existiert."
ELSE
  PRINT "Datei "; d$; " gibt es nicht!"
END IF

END

Fehler:
ex% = 0
RESUME NEXT

FUNCTION DateiExistiert% (d$)
  SHARED ex%

  ex% = -1
  ON ERROR GOTO Fehler
  OPEN d$ FOR INPUT AS 1
  CLOSE 1
  ON ERROR GOTO 0
  DateiExistiert% = ex%
END FUNCTION