TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 3 minutos

Exclui um arquivo do disco.

Sintaxe

FErase( < cArquivo >, [ xParam ], [ lChangeCase ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cArquivo

caractere

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

 

xParam

qualquer

Compatibilidade. Deve ser informado o valor nulo ( NIL )

 

 

lChangeCase

lógico

Se verdadeiro (.T.), nomes de arquivos e pastas serão convertidos para letras minúsculas; caso contrário, falso (.F.), não será feito nenhum ajuste no nome do arquivo informado. Valor padrão (.T.). Veja maiores informações em Observações.

 

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

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.

Observações

  • 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.
  • O parâmetro opcional lChangeCase foi introduzido a partir do build 7.00.131227A pois em sistemas LINUX/UNIX, existe a diferenciação entre maiúsculo e minúsculo em nomes de arquivos ou pastas. Quando este parâmetro for informado, terá prioridade sobre comportamento de Case Sensitive definido pelas chaves de ini CASESENSITIVE ou SERVERTYPE. Porem, quando não especificado o parâmetro, o valor padrão (.T.) fica condicionado ao que está configurado nessas chaves.

Atenção

Os arquivos devem ser fechados antes de serem excluídos pela função FErase().

Exemplos

//Exemplo 1
#include "fileio.ch"
User Function exemplo()
  // Apaga um arquivo no TOTVS Smart Client
  If FERASE("C:\ListaTXT.tmp") == -1
    MsgStop('Falha na deleção do Arquivo')
  Else
    MsgStop('Arquivo deletado com sucesso.')
  Endif
Return

//Exemplo 2
// Este exemplo apaga todos os arquivos .BAK do diretório corrente no Servidor
#include 'DIRECTRY.CH'
User Function exemplo2()
  aEval(Directory("*.BAK"), { |aFile| FERASE(aFile[F_NAME]) })
Return

//Exemplo 3
// Este exemplo apaga um arquivo no cliente ( Remote ) , informando o status da operação
User Function exemplo3()
  IF FERASE("C:\ListaTXT.tmp") == -1
    MsgStop('Falha na deleção do Arquivo ( FError'+str(ferror(),4)+             ')')
  Else
    MsgStop('Arquivo deletado com sucesso.')
  ENDIF
Return

Veja também

  • Sem rótulos