Code: Select all
If FileSize(Path$) <> -2Code: Select all
If FileSize(Path$) <> -2Code: Select all
Protected JXID.i = #PB_Any
If Not ParseJSON(JXID, JSON)
ProcedureReturn #False
EndIf
Protected *Root = JSONValue(JXID)
If Not *Root
FreeJSON(JXID)
ProcedureReturn #False
EndIf