B4X

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.

B4X

Dim success As Boolean = False

success = True

'  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.

Dim gAuth As ChilkatAuthGoogle
gAuth.Initialize("gAuth")
gAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"

Dim rest As ChilkatRest
rest.Initialize("rest")

'  Connect using TLS.
Dim bAutoReconnect As Boolean = True
success = rest.Connect("www.googleapis.com", 443, True, bAutoReconnect)

'  Provide the authentication credentials (i.e. the access token)
rest.SetAuthGoogle(gAuth)

'  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
Dim fileId As String = "0B53Q6OSTWYoldUprZVU1ZVQ5Z0k"

Dim sbPath As ChilkatStringBuilder
sbPath.Initialize
sbPath.Append("/drive/v3/files/")
sbPath.Append(fileId)

Dim jsonResponse As String = rest.FullRequestNoBody("DELETE", sbPath.GetAsString)
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  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 rest.ResponseStatusCode <> 204 Then
    Log("response status code = " & rest.ResponseStatusCode)
    Log("response status text = " & rest.ResponseStatusText)
    Log("response header: " & rest.ResponseHeader)
    Log("response JSON: " & jsonResponse)
    Return
End If


Log("File deleted.")