Visual FoxPro

Xero Create a Folder (Files API)

Demonstrates how to create a folder.

Note: This example requires Chilkat v9.5.0.64 or greater.

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL loJson
LOCAL lcResponseJson

lnSuccess = 0

* Note: Requires Chilkat v9.5.0.64 or greater.

* This requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loRest = CreateObject('Chilkat.Rest')

* Before sending REST API calls, the REST object needs to be
* initialized for OAuth1.
* See Xero 2-Legged OAuth1 Setup for sample code.

* Assuming the REST object's OAuth1 authenticator is setup, and the initial
* connection was made, we may now send REST HTTP requests..

* -------------------------------------------------------------------------

* Create a folder named "Images"
loJson = CreateObject('Chilkat.JsonObject')
loJson.AppendString("name","Images")

loRest.AddHeader("Content-Type","application/json")

lcResponseJson = loRest.FullRequestString("POST","/files.xro/1.0/Folders",loJson.Emit())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loJson
    CANCEL
ENDIF

loJson.Load(lcResponseJson)
loJson.EmitCompact = 0

* A 200 response is expected for actual success.
IF (loRest.ResponseStatusCode <> 200) THEN
    ? loJson.Emit()
    RELEASE loRest
    RELEASE loJson
    CANCEL
ENDIF

? loJson.Emit()

* A successful response looks like this:

* 	{
* 	  "Name": "Images",
* 	  "FileCount": 0,
* 	  "IsInbox": false,
* 	  "Id": "0ffca059-f2f1-4271-8de9-4b87c8c2c638"
* 	}
* 

RELEASE loRest
RELEASE loJson