Cross Segmentos - TOTVS Backoffice (Linha Protheus) - ADVPL - Função FCREATE()

Tempo aproximado para leitura: 00:03:00 min

Dúvida
Qual função posso utilizar para criar arquivos?

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução
Cria um arquivo vazio no disco, para operação de escrita em modo exclusivo, com o tamanho de 0 (zero) bytes. Se o arquivo especificado já existe no disco, o arquivo é aberto em modo exclusivo, e seu conteúdo é eliminado ( truncado em 0 bytes ). Caso a operação não seja completa com sucesso, a função retorna o handler -1, caso contrário é retornado o handler de acesso ao arquivo, para operações de escrita.

#include "Fileio.ch"

user function exemplo()
local nHandle := FCREATE("\Testfile.txt")

    if nHandle = -1
        conout("Erro ao criar arquivo - ferror " + Str(Ferror()))
    else
        FWrite(nHandle, Time() + CRLF)
        FClose(nHandle)
    endif
return

Saiba mais
FCreate
FWrite
Manipulação de arquivos, discos e IO