home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1991
/
number2
/
testpath.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-02
|
367b
|
23 lines
PROGRAM TestPath;
USES
DOS, CRT;
VAR
PathToTest : PathStr;
F : FILE;
BEGIN
PathToTest := 'C:\DOS\';
ASSIGN(F,PathToTest+'NUL');
{$I-}
RESET(F);
{$I+}
IF IOResult <> 0 THEN
WRITELN('Path '+PathToTest+' does not exist.')
ELSE BEGIN
CLOSE(F);
WRITELN('Path '+PathToTest+' exists.');
END;
END.