home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP24.EXE / CHP2407.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  522 b   |  23 lines
  1. /*
  2.    Listing 24.7  OK2WRITE()
  3.    Author: Joe Booth
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11. #include "FILEIO.CH"
  12.  
  13. function Ok2write(cFile)
  14. LOCAL retval:=.T.,fh
  15. if file( cFile )
  16.    fh     := fopen( cFile,FO_READWRITE )
  17.    retval := (fh >= 0 .and. ferror()= 0 )
  18.    fclose(fh)
  19. endif
  20. return (retval)
  21.  
  22. // end of file CHP2407.PRG
  23.