home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV2N2.ZIP / TESTPATH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-02  |  367 b   |  23 lines
  1. PROGRAM TestPath;
  2.  
  3. USES
  4.    DOS, CRT;
  5.  
  6. VAR
  7.    PathToTest : PathStr;
  8.    F : FILE;
  9.  
  10. BEGIN
  11.    PathToTest := 'C:\DOS\';
  12.    ASSIGN(F,PathToTest+'NUL');
  13.    {$I-}
  14.    RESET(F);
  15.    {$I+}
  16.    IF IOResult <> 0 THEN
  17.       WRITELN('Path '+PathToTest+' does not exist.')
  18.    ELSE BEGIN
  19.       CLOSE(F);
  20.       WRITELN('Path '+PathToTest+' exists.');
  21.    END;
  22. END.
  23.