home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / useful / dist / dev / lang / ace / include / fexists.h next >
Encoding:
Text File  |  1993-02-28  |  308 b   |  19 lines
  1. { FEXISTS(x$) -- returns true if file exists otherwise false.
  2.  
  3.   Author: David J Benn
  4.     Date: 28th February 1993 }
  5.         
  6. sub fexists(x$)
  7.   if x$="" then 
  8.     fexists=0
  9.   else
  10.     open "I",#1,x$
  11.     if handle(1) <> 0& then 
  12.       close #1
  13.       fexists=-1
  14.     else 
  15.       fexists=0
  16.     end if
  17.   end if
  18. end sub
  19.