FErase

FErase ( < cArquivo> , [ xParam2], [ lChangeCase] ) --> nRet

(numerico)
• Retorna 0 (zero), se o arquivo for apagado com sucesso, e -1, caso não seja possível. Se o retorno for -1, é possível utilizar a função FError() para obter mais detalhes da ocorrência.

• Essa função faz exatamente a mesma coisa que o comando Erase, porém, retorna um valor e pode ser especificada em uma expressão. 
• Quando a função é chamada, o arquivo indicado, no parâmetro <cArquivo>, somente é eliminado do disco se for encontrado no diretório DOS - Disk Operating System (sistema operacional de disco) corrente ou no diretório especificado como parte do nome do arquivo.
• Essa função não utiliza os comandos Set Default e Set Path para localizar o arquivo indicado no parâmetro <cArquivo>.
• Caracteres do tipo curinga (Wildcards) (* ou ?) não são permitidos na especificação de arquivos.

//Exemplo 1#include "fileio.ch"...// Apaga um arquivo no TOTVS Smart ClientIf FERASE("C:\ListaTXT.tmp") == -1      MsgStop('Falha na deleção do Arquivo')Else      MsgStop('Arquivo deletado com sucesso.')Endif////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Exemplo 2// Este exemplo apaga todos os arquivos .BAK do diretório corrente no Servidor#include 'DIRECTRY.CH'aEval(Directory("*.BAK"), { |aFile| FERASE(aFile[F_NAME]) })////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Exemplo 3// Este exemplo apaga um arquivo no cliente ( Remote ) , informando o status da operaçãoIF FERASE("C:\ListaTXT.tmp") == -1      MsgStop('Falha na deleção do Arquivo ( FError'+str(ferror(),4)+             ')')Else    MsgStop('Arquivo deletado com sucesso.')ENDIF