home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pctchnqs / 1992 / number1 / testfile.pas < prev    next >
Pascal/Delphi Source File  |  1990-12-30  |  262b  |  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.