Estou tentando gravar um arquivo json em disco usando toJsonFile e busquei informação no TDN e lá tem o codigo abaixo:

# include tlpp-core.th

function u_gravaJsonFile()

local cPathAndFile  := 'C:\tlppcore\tojsonfile.txt' as character
local oJsonObject   := JSONObject():New() as json
local xReturn       := Nil

oJsonObject := {"testetojsonfile" : { "var1" : "ola", "var2": "olaola", "var3": "olaolaola" }

xReturn := oJsonObject:toJsonFile(cPathAndFile)

if valType(xReturn) == "U"
    conout("Arquivo: "+cPathAndFile+" criado com sucesso")
else
    conout("Erro: "+cValToChar(xReturn)+" na gravacao do arquivo: "+cPathAndFile)
endif

freeObj(oJsonObject)

return

Esse exemplo deveria funcionar mesmo ?

variavel

local oJsonObject := JSONObject():New() as json

Depois gravá-la ?

oJsonObject := {"testetojsonfile" : { "var1" : "ola", "var2": "olaola", "var3": "olaolaola" }

xReturn := oJsonObject:toJsonFile(cPathAndFile)

Segue o link https://tdn.totvs.com/display/tec/toJsonFile