Perguntas Escrever o valor de uma variavel em um arquivo .txt

Criei uma função genérica , para fazer isso.

Quando eu preciso somente chamo ela em qualquer outra função.

U_CriaArquivo(NomedaVariável,Caminho)

#INCLUDE "PROTHEUS.CH"

User Function CriaArquivo(_String,_Caminho)

aLinha := {}

aadd(aLinha, "Sql: ")
aadd(aLinha, _String)

nArquivo := Fcreate(_Caminho)

If Ferror() <> 0
MsgAlert("ERRO AO CRIAR O ARQUIVO, ERRO: " + str(Ferror()))
lFalha := .t.
Else
For nLinha := 1 to len(aLinha)
Fwrite(nArquivo, aLinha[nLinha] + chr(13) + chr(10))
If Ferror() <> 0
Msgalert ("ERRO GRAVANDO ARQUIVO, ERRO: " + str(Ferror()))
lFalha := .t.
Endif
Next
Endif

Fclose(nArquivo)

Return

Se o intuito é gerar o arquivo na máquina do usuário (client side) é melhor gravar na pasta temp do usuário.

MemoWrite(GetTempPath() + <nome do arquivo>,<conteúdo do arquivo (string)>)

Att.,
Renan Paiva