Visual FoxPro

Delete File

See more Google Drive Examples

Permanently deletes a file owned by the user without moving it to the trash. If the target is a folder, all descendants owned by the user are also deleted.

See Google Drive Files delete for more information.

Visual FoxPro

LOCAL lnSuccess
LOCAL loGAuth
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL lcFileId
LOCAL loSbPath
LOCAL lcJsonResponse

lnSuccess = 0

lnSuccess = 1

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

* This example uses a previously obtained access token having permission for the 
* Google Drive scope.

loGAuth = CreateObject('Chilkat.AuthGoogle')
loGAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"

loRest = CreateObject('Chilkat.Rest')

* Connect using TLS.
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("www.googleapis.com",443,1,lnBAutoReconnect)

* Provide the authentication credentials (i.e. the access token)
loRest.SetAuthGoogle(loGAuth)

* To delete a file, we must use the fileId.
* This must've been obtained by listing or searching for the file
* to get the metadata.
* Assume we already did that an have the fileId
lcFileId = "0B53Q6OSTWYoldUprZVU1ZVQ5Z0k"

loSbPath = CreateObject('Chilkat.StringBuilder')
loSbPath.Append("/drive/v3/files/")
loSbPath.Append(lcFileId)

lcJsonResponse = loRest.FullRequestNoBody("DELETE",loSbPath.GetAsString())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loSbPath
    CANCEL
ENDIF

* A successful response will have a status code equal to 204 and the response body is empty.
* (If not successful, then there should be a JSON response body with information..)
IF (loRest.ResponseStatusCode <> 204) THEN
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response JSON: " + lcJsonResponse
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loSbPath
    CANCEL
ENDIF

? "File deleted."

RELEASE loGAuth
RELEASE loRest
RELEASE loSbPath