(PowerBuilder) OneDrive -- Delete a File or Folder

See more OneDrive Examples

Note: This example requires Chilkat v9.5.0.97 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Json
oleobject loo_Http
string ls_Resp

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// This example uses the OAuth client credentials flow.
// See How to Create an Azure App Registration for OAuth 2.0 Client Credentials

// Use your client ID, client secret, and tenant ID in the following lines
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("client_id","2871da2c-8176-4b7f-869b-2311aa82e743")
loo_Json.UpdateString("client_secret","2hu9Q~~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH")
loo_Json.UpdateString("scope","https://graph.microsoft.com/.default")
loo_Json.UpdateString("token_endpoint","https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token")

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

loo_Http.AuthToken = loo_Json.Emit()

// To delete a file or folder, send a DELETE request like this:
// DELETE /v1.0/users/{user_id}/drive/root:/{item-path}

loo_Http.SetUrlVar("item_path","TestDir/sample.pdf")
loo_Http.SetUrlVar("user_id","4fe732c3-322e-4a6b-b729-2fd1eb5c6104")
ls_Resp = loo_Http.QuickDeleteStr("https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:/{$item_path}")
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Http
    return
end if

// A 204 response (with no response body) indicates success.
if loo_Http.LastStatus = 204 then
    Write-Debug "DriveItem deleted."
else
    Write-Debug "DriveItem not deleted."
    Write-Debug ls_Resp
end if



destroy loo_Json
destroy loo_Http