VBScript

Xero Delete File (FILES API)

Delete a file via the Xero FILES API.

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

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 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.

set rest = 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..

' ------------------------------------------------------------------------------
fileID = "f042e9a3-a31d-4595-b8b3-6030ea6084bb"

set sbPath = CreateObject("Chilkat.StringBuilder")
success = sbPath.Append("/files.xro/1.0/Files/{FileId}")
numReplaced = sbPath.Replace("{FileId}",fileID)

jsonResponse = rest.FullRequestNoBody("DELETE",sbPath.GetAsString())
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

' A 201 response is expected for actual success.
If (rest.ResponseStatusCode <> 201) Then
    outFile.WriteLine(jsonResponse)
    outFile.WriteLine("-- Failed.")
    WScript.Quit
End If

outFile.WriteLine("Xero Delete File was Successful.")

outFile.Close