FileOpen()
FileOpen() – File Handle
Mit FileOpen können Sie eine Datei öffnen und ihr Windows-Datei-Handle abrufen. Der Zugriffsmodus ergibt sich durch eine ODER-Verknüpfung einer fo_Open-Konstante mit einer der fo_Share-Konstanten. Bei Erfolg gibt FileOpen einen positiven Integer-Wert zurück, der als Handle für die geöffnete Datei verwendet werden kann. Der Rückgabewert -1 gibt an, daß ein Fehler aufgetreten ist.
Wurde mit FileOpen() ein gültiges Handle bezogen, dann MUSS die Datei nach der Bearbeitung über FileClose() geschlossen werden! Deshalb immer StartSeq ... Always ... StopSeq verwenden!
Parameter | Beschreibung |
---|---|
aFileName:C | File + Pfad |
aMode:N | Zugriffsmodus (logische OR-Verknüpfung aus fo_Open Konstante und fo_Share Konstante) |
Rückgabewert
Numerisch - FileHandle. Bei Fehler: -1
Beispiel
| nHandle, dDatum, nDatum, nError |
nHandle := FileOpen('C:\TEMP\U_Zahlung.Pas', _OR(fo_ReadWrite, fo_Shared)),
if nHandle > -1 then
startseq,
dDatum := FileDateToDateTime(FileGetDate(nHandle)),
WriteLn(dDatum),
nDatum := DateTimeToFileDate(Date() + TimeEx()),
WriteLn(nDatum),
nError := FileSetDate(nHandle, nDatum),
if nError <> 0 then
WriteLn('Fehlercode ' + Str(nError)),
else
WriteLn('Neues Datei-Datum ' + DateTimeToStr(FileDateToDateTime(nDatum))),
endif,
always,
FileClose(nHandle),
stopseq,
endif,