XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei  - Existenz einer Datei prüfen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Existenz einer Datei prüfen
Bei einer vorhandenen Datei wird 1 zurückgegeben, bei einer
nichtvorhandenen 0 und %IOResult wird zurückgesetzt.
Def FileExists(1) If(Len(FindFirst$($(1))),1,Equ(%IOResult,0))
Beispiel (AUTOEXEC.BAT wird wohl überall vorhanden sein)
Print FileExists(C:AUTOEXEC.BAT)
Print %IORESULT=,%IOResult
Print FileExists(C:NICHTDA.XYZ)
Print %IORESULT=,%IOResult
WaitInput

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Existenz einer Datei prüfen
Hinweis: ab XProfan gibt es FileExists als XProfan-Befehl
Def FileExists(1) If(Len(FindFirst$($(1))),1,Equ(%IOResult,0))

If FileExists(Datei$)

    Anweisungen

EndIf

Funktion nicht mit case / casenot verwenden,
sondern immer:

IF /IFNOT

    Anweisungen

ENDIF

cls

if FileExists(C:AUTOEXEC.BAT)

    print Die Datei AUTOEXEC.BAT ist vorhanden!

else

    print Die Datei AUTOEXEC.BAT ist nicht vorhanden!

endif

WaitInput