(Tcl) Delete File

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.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set gAuth [new_CkAuthGoogle]

CkAuthGoogle_put_AccessToken $gAuth "GOOGLE-DRIVE-ACCESS-TOKEN"

set rest [new_CkRest]

# Connect using TLS.
set bAutoReconnect 1
set success [CkRest_Connect $rest "www.googleapis.com" 443 1 $bAutoReconnect]

# Provide the authentication credentials (i.e. the access token)
CkRest_SetAuthGoogle $rest $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
set fileId "0B53Q6OSTWYoldUprZVU1ZVQ5Z0k"

set sbPath [new_CkStringBuilder]

CkStringBuilder_Append $sbPath "/drive/v3/files/"
CkStringBuilder_Append $sbPath $fileId

set jsonResponse [CkRest_fullRequestNoBody $rest "DELETE" [CkStringBuilder_getAsString $sbPath]]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkAuthGoogle $gAuth
    delete_CkRest $rest
    delete_CkStringBuilder $sbPath
    exit
}

# 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 {[CkRest_get_ResponseStatusCode $rest] != 204} then {
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response JSON: $jsonResponse"
    delete_CkAuthGoogle $gAuth
    delete_CkRest $rest
    delete_CkStringBuilder $sbPath
    exit
}

puts "File deleted."

delete_CkAuthGoogle $gAuth
delete_CkRest $rest
delete_CkStringBuilder $sbPath