Tempo aproximado para leitura: 00:02:00 min
Dúvida
Na documentação para utilizar a nova função de escrita em arquivos:
http://tdn.totvs.com/display/framework/FWFileWriter , não consegui visualizar em momento que grava um texto no arquivo.
Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
Neste utiliza-se o método Write segue exemplo:
#Include 'Protheus.ch'
User Function Exemplo()
Local oFile := c():new("ExFWFileWriter.txt")
//--------------- Se o arquivo já existe, apaga -------------------
If oFile:Exists()
oFile:Erase()
EndIf
//-------------- Cria o arquivo --------------
If (oFile:Create())
//-------------- Se criou com sucesso, escreve ------------------------------
oFile:Write("Teste de escrita!")
//-------------- Fecha o arquivo -----------
oFile:Close()
Endif
Return
0 Comentários