E r g e b n i s / R e s u l t
Prüft, ob eine Datei existiert
B e s c h r e i b u n g / D e s c r i p t i o n
Displays the Open Access Abandon message
S y n t a x
Code:
boolean = CALL("FILEXIST",filename,no/yes) P a r a m e t e r
Filename - kann mit oder ohne Alias übergeben werden
lookall - no = es wird nur im angegebenen Verzeichnis gesucht
yes = es wird in allen Verzeichnissen geprüft
R e t u r n s
eine logische Variable
B e i s p i e l / E x a m p l e
Code:
attach "filecomp.oac"
fname1 = 'pgm:test1.txt'
fname2 = 'test2.txt'
doit = false
lookall = 'No'
ok = call("filexist",fname1,lookall)
if ok
doit = true
else
lookall = 'Yes'
ok = call("filexist",fname1,lookall)
if ok
doit = true
end if
end if
DETACH "filecomp"