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 FolderDemonstrates how to create a new folder. Note: This example requires Chilkat v9.5.0.68 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. http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Use your previously obtained access token here: ; See the following examples for getting an access token: ; Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint). ; Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint). ; Refresh Access Token (Azure AD v2.0 Endpoint). ; Refresh Access Token (Azure AD Endpoint). ; (Make sure your token was obtained with the Files.ReadWrite scope.) CkHttp::setCkAuthToken(http, "MICROSOFT_GRAPH_ACCESS_TOKEN") ; To create a new folder, send a POST request like this: ; POST /me/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 /someFolder, ; so we need the item-id for /someFolder. json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::setCkEmitCompact(json, 0) resp.s = CkHttp::ckQuickGetStr(http,"https://graph.microsoft.com/v1.0/me/drive/root:/someFolder") If CkHttp::ckLastMethodSuccess(http) <> 1 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) ProcedureReturn EndIf CkJsonObject::ckLoad(json,resp) If CkHttp::ckLastStatus(http) <> 200 Debug "Failed to get parent folder item id, status code = " + Str(CkHttp::ckLastStatus(http)) CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) ProcedureReturn EndIf ; Set the URL var for the next request which will create the new folder. CkHttp::ckSetUrlVar(http,"parent_item_id",CkJsonObject::ckStringOf(json,"id")) ; 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) url.s = "https://graph.microsoft.com/v1.0/me/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) CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) 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. CkHttp::ckDispose(http) CkJsonObject::ckDispose(json) CkJsonObject::ckDispose(jsonReqBody) ProcedureReturn EndProcedure |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.