Visual FoxPro Google Drive: Delete a File

Back to Index

Permanently deletes a file owned by the user without moving it to the trash. If the file belongs to a Team Drive the user must be an organizer on the parent. If the target is a folder, all descendants owned by the user are also deleted.

Documentation: https://developers.google.com/drive/v3/reference/files/delete

LOCAL loRest
LOCAL lnSuccess
LOCAL loOauth2
LOCAL loSbResponse

loRest = CreateObject('Chilkat_9_5_0.Rest')

*   Provide a previously obtained OAuth2 access token.
loOauth2 = CreateObject('Chilkat_9_5_0.OAuth2')
loOauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"
loRest.SetAuthOAuth2(loOauth2)

lnSuccess = loRest.Connect("www.googleapis.com",443,1,1)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loOauth2
    CANCEL
ENDIF

loRest.AddQueryParam("supportsTeamDrives","true")

loSbResponse = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("DELETE","/drive/v3/files/1xx378JF8abx17LXlRt65031J9TQkolQX",loSbResponse)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loOauth2
    RELEASE loSbResponse
    CANCEL
ENDIF

IF (loRest.ResponseStatusCode <> 204) THEN
    ? "Received error response code: " + STR(loRest.ResponseStatusCode)
    ? "Response body:"
    ? loSbResponse.GetAsString()
    RELEASE loRest
    RELEASE loOauth2
    RELEASE loSbResponse
    CANCEL
ENDIF

? "Example Completed."

RELEASE loRest
RELEASE loOauth2
RELEASE loSbResponse