home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV3N1.ZIP / TESTFILE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-30  |  262 b   |  15 lines
  1. PROGRAM Test;
  2. USES
  3.    DOS, CRT;
  4.  
  5. VAR
  6.    FileToTest : STRING;
  7.  
  8. BEGIN
  9.    FileToTest := 'TEST.PAS';
  10.    IF FSearch(FileToTest,'') = '' THEN
  11.       WRITELN('File '+FileToTest+' does not exist.')
  12.    ELSE
  13.       WRITELN('File '+FileToTest+' exists.');
  14. END.
  15.