XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Testen, ob Lese- und Schreibzugriff auf eine Datei möglich ist.
PRFellow-Vorlage
Autor: Thomas Hölzer, 1998
Test, ob Lese- und Schreibzugriff auf Datei möglich ist.
Rückgabe = 1 wenn Zugriff möglich, 0 wenn gesperrt.
Falls die Datei nicht vorhanden ist,wird von der Prüfprozedur
ebenfalls 1 gemeldet, aber keine Null-Byte-Datei angelegt!
Bitte beachten:
Wenn eine Datei von einem anderen Programm mit einem
dem Flag OF_SHARE_COMPAT zum Schreiben geöffnet wurde,
bekomme ich ebenfalls Schreibzugriff mit allen damit verbundenen
Gefahren - siehe win32.hlp zu _lopen,OpenFile,CreateFile

Proc CanOpen

    Parameters file$
    Declare result%
    Let file$=Upper$(file$)
    FindFirst$(file$)
    Case %IOResult: Return 1
    Assign #1,file$
    OpenRW #1
    Let result%=Not(%IOResult)
    Case result%: CloseRW #1
    Return result%

EndProc

Beispiele
Cls
die Swap-Datei (ggf. Pfad/Name anpassen)- das geht immer schief
CanOpen C:WIN386.SWP
Print %(0)
Das sollte normalerweise klappen
CanOpen C:AUTOEXEC.BAT
Print %(0)
WaitInput