Função: FErase
Exclui um arquivo do disco.
FErase ( < cArquivo> ) --> nRet
Nome | Tipo | Descrição | Obrigatório | Referência |
cArquivo | Caracter | Indica o nome do arquivo que será apagado. Além disso, pode-se especificar um path absoluto ou relativo para apagar arquivos na estação local ou no servidor. | X |
-
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.
Importante |
---|
Os arquivos devem ser fechados antes de serem excluídos pela função FErase(). |
//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
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas