Função: FErase
Exclui um arquivo do disco.
FErase ( < cArquivo> , [ xParam2], [ lChangeCase] ) --> 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 | |
xParam2 | Nulo | Compatibilidade. Deve ser informado o valor nulo ( NIL ) | ||
lChangeCase | Lógico | Caso seja verdadeiro (.T.) , o nome do arquivo informado será automaticamente convertido para letras minúsculas ; caso contrário, falso (.F.), não será feito nenhum ajuste no nome do arquivo informado. Valor padrão : .T. ( verdadeiro ) |
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