Check that file exists: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
|||
Line 3,170: | Line 3,170: | ||
docs directory exists and contains 0 files. |
docs directory exists and contains 0 files. |
||
</pre> |
</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}}== |
=={{header|Yabasic}}== |