$FUNCNAME$
  FERASE()
$CATEGORY$
  FILE/IO
$SUMMARY$
   Delete a file from disk
$LANG_RU$
      .
$SYNTAX$
     FERASE(<cFile>) --> nSuccess
$LANG_RU$
     FERASE(< >) -->  
$ARGUMENTS$
     <cFile> is the name of the file to be deleted from disk, including
     extension, optionally preceded by a drive and/or path specification.
$LANG_RU$
     < >   ,    .
        ,     ,
          .
$RETURNS$
     FERASE() returns -1 if the operation fails and zero if it succeeds.  In
     the case of a failure, FERROR() can be used to determine the nature of
     the error.
$LANG_RU$
        FERASE()  (-1)  0,  
       .      
           
     FERROR().
$DESCRIPTION$
     FERASE() is a file function that deletes a specified file from disk.
     FERASE() is the same as the ERASE command but returns a value and can be
     specified within an expression.  When FERASE() is called, <cFile> is
     deleted from disk only if found in the current DOS directory or in the
     directory explicitly specified as part of the file name.  Like the other
     file functions and commands, FERASE() does not use either SET DEFAULT or
     SET PATH to locate <cFile>.

     Warning!  Files must be CLOSEd before removing them with FERASE().
$LANG_RU$
     FERASE()    .   
       . FERASE()   ERASE,   , 
             
     .    FERASE(), < >   
        ,     DOS ,
         .    
            < >, 
          ,   
     SET DEFAULT  SET PATH     .

     :
             FERASE().
$EXAMPLES$
       This example deletes a set of files matching a wildcard
	pattern:

	#include "Directry.ch"
	AEVAL(DIRECTORY("*.BAK"), { |aFile| ;
	   FERASE(aFile[F_NAME]) })

       This example erases a file and displays a message if the
	operation fails:

	IF FERASE("AFile.txt") == -1
	   ? "File erase error:", FERROR()
	   BREAK
	ENDIF
$LANG_RU$
         ,    ,  
          :

       #include "Directry.ch"
       AEVAL(DIRECTORY("*.BAK"), { | aFile | FERASE(aFile[F_NAME]) })

              
       ,    :

       IF FERASE("AFile.txt") = -1
	  ? "  : ", FERROR()
	  BREAK
       ENDIF
$SEEALSO$
  FERROR(),FRENAME()
$END$
