import.css=/download/attachments/327912/newLayout.css |
Função: FEraseExclui um arquivo do disco. FErase ( < cArquivo> , [ xParam2], [ lChangeCase] ) --> nRet
nRet
//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
|