home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / CHECKFIL.PAS next >
Encoding:
Pascal/Delphi Source File  |  1992-12-15  |  434 b   |  17 lines
  1. uses
  2.   eco_lib
  3.  
  4.   ;
  5.  
  6.  
  7. begin
  8.   if __inparams('/?', error) or (paramcount = 0) then begin
  9.     writeln(__progname);
  10.     writeln('  Usage: ', __progname, ' path[filename] eindigt op errorlevel');
  11.     writeln(__rep(length(__progname)+10, ' '), '2 als file bestaat, 1 als dir bestaat anders 0');
  12.     halt;
  13.   end;
  14.   if __existfil(paramstr(1)) then halt(2) else
  15.     if __existpath(paramstr(1)) then halt(1) else halt(0);
  16. end.
  17.