Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) OneDrive -- Create a New FolderSee more OneDrive ExamplesDemonstrates how to create a new folder. Note: This example requires Chilkat v9.5.0.97 or greater.
IncludeFile "CkHttpResponse.pb" IncludeFile "CkHttp.pb" IncludeFile "CkJsonObject.pb" Procedure ChilkatExample() ; 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 json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckUpdateString(json,"client_id","2871da2c-8176-4b7f-869b-2311aa82e743") CkJsonObject::ckUpdateString(json,"client_secret","2hu9Q~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH") CkJsonObject::ckUpdateString(json,"scope","https://graph.microsoft.com/.default") CkJsonObject::ckUpdateString(json,"token_endpoint","https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token") http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHttp::setCkAuthToken(http, CkJsonObject::ckEmit(json)) ; To create a new folder, send a POST request like this: ; POST /users/{user-id}/drive/items/{parent-item-id}/children ; We first need to get the item-id for the folder where the new folder will be created. ; This example will create a new folder named "abc" within /TestDir, ; so we need the item-id for /TestDir. CkHttp::ckSetUrlVar(http,"dir_path","/TestDir") CkHttp::ckSetUrlVar(http,"user_id","4fe732c3-322e-4a6b-b729-2fd1eb5c6104") respStr.s = CkHttp::ckQuickGetStr(http,"https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:{$dir_path}") If CkHttp::ckLastMethodSuccess(http) <> 1 Debug CkHttp::ckLastErrorText(http) CkJsonObject::ckDispose(json) CkHttp::ckDispose(http) ProcedureReturn EndIf CkJsonObject::ckLoad(json,respStr) If CkHttp::ckLastStatus(http) <> 200 Debug "Failed to get parent folder item id, status code = " + Str(CkHttp::ckLastStatus(http)) CkJsonObject::ckDispose(json) CkHttp::ckDispose(http) ProcedureReturn EndIf ; The HTTP request body should contain JSON like this: ; { ; "name": "abc", ; "folder": { } ; } jsonReqBody.i = CkJsonObject::ckCreate() If jsonReqBody.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckAppendString(jsonReqBody,"name","abc") jObj.i = CkJsonObject::ckAppendObject(jsonReqBody,"folder") CkJsonObject::ckDispose(jObj) Debug "JSON body:" Debug CkJsonObject::ckEmit(jsonReqBody) ; Set the URL var for the next request which will create the new folder. CkHttp::ckSetUrlVar(http,"parent_item_id",CkJsonObject::ckStringOf(json,"id")) url.s = "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/items/{$parent_item_id}/children" resp.i = CkHttp::ckPostJson2(http,url,"application/json",CkJsonObject::ckEmit(jsonReqBody)) If CkHttp::ckLastMethodSuccess(http) <> 1 Debug CkHttp::ckLastErrorText(http) CkJsonObject::ckDispose(json) CkHttp::ckDispose(http) CkJsonObject::ckDispose(jsonReqBody) ProcedureReturn EndIf CkJsonObject::ckLoad(json,CkHttpResponse::ckBodyStr(resp)) Debug "Response:" Debug CkJsonObject::ckEmit(json) ; A 201 response indicates success. If CkHttpResponse::ckStatusCode(resp) <> 201 Debug "Failed to create folder." Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp)) Else Debug "Successfully created folder." EndIf CkHttpResponse::ckDispose(resp) ; A successful response: ; { ; "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/drive/items('3A33FCEB9B74CC15%214862')/children/$entity", ; "createdBy": { ; "application": { ; "displayName": "Chilkat", ; "id": "441c9990" ; }, ; "user": { ; "displayName": "Matt Smith", ; "id": "3a33fceb9b74cc15" ; } ; }, ; "createdDateTime": "2017-06-04T16:02:22.203Z", ; "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITQ4NzAuNjM2MzIxODg5NDIyMDMwMDAw", ; "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODcwLjA", ; "id": "3A33FCEB9B74CC15!4870", ; "lastModifiedBy": { ; "application": { ; "displayName": "Chilkat", ; "id": "441c9990" ; }, ; "user": { ; "displayName": "Matt Smith", ; "id": "3a33fceb9b74cc15" ; } ; }, ; "lastModifiedDateTime": "2017-06-04T16:02:22.203Z", ; "name": "abc", ; "parentReference": { ; "driveId": "3a33fceb9b74cc15", ; "id": "3A33FCEB9B74CC15!4862", ; "name": "someFolder", ; "path": "/drive/root:/someFolder" ; }, ; "size": 0, ; "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6pgY", ; "fileSystemInfo": { ; "createdDateTime": "2017-06-04T16:02:22.203Z", ; "lastModifiedDateTime": "2017-06-04T16:02:22.203Z" ; }, ; "folder": { ; "childCount": 0 ; } ; } ; ; Successfully created folder. CkJsonObject::ckDispose(json) CkHttp::ckDispose(http) CkJsonObject::ckDispose(jsonReqBody) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.