(Visual Basic 6.0) Xero Delete File (FILES API)
Delete a file via the Xero FILES API.
Note: This example requires Chilkat v9.5.0.64 or greater.
' 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.
Dim rest As New ChilkatRest
Dim success As Long
' 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..
' ------------------------------------------------------------------------------
Dim fileID As String
fileID = "f042e9a3-a31d-4595-b8b3-6030ea6084bb"
Dim sbPath As New ChilkatStringBuilder
success = sbPath.Append("/files.xro/1.0/Files/{FileId}")
Dim numReplaced As Long
numReplaced = sbPath.Replace("{FileId}",fileID)
Dim jsonResponse As String
jsonResponse = rest.FullRequestNoBody("DELETE",sbPath.GetAsString())
If (success <> 1) Then
Debug.Print rest.LastErrorText
Exit Sub
End If
' A 201 response is expected for actual success.
If (rest.ResponseStatusCode <> 201) Then
Debug.Print jsonResponse
Debug.Print "-- Failed."
Exit Sub
End If
Debug.Print "Xero Delete File was Successful."
|
