Check that file exists: Difference between revisions
Added XPL0 example.
(Added XPL0 example.) |
|||
Line 3,170:
docs directory exists and contains 0 files.
</pre>
=={{header|XPL0}}==
Attempting to open a non-existent file or directory will cause an error.
A zero-length file is detected as existing.
<lang XPL0>
int FD; \file descriptor
[Trap(false); \prevent errors from aborting program
FD:= FOpen("input.txt", 0);
if GetErr then Text(0, "input.txt doesn't exist^m^j");
FD:= FOpen("dir", 0);
if GetErr then Text(0, "dir doesn't exist^m^j");
FD:= FOpen("/input.txt", 0);
if GetErr then Text(0, "/input.txt doesn't exist^m^j");
FD:= FOpen("/dir", 0);
if GetErr then Text(0, "/dir doesn't exist^m^j");
]</lang>
=={{header|Yabasic}}==
| |||