DataFlex
DataFlex
OneDrive -- Create a New Folder
See more OneDrive Examples
Demonstrates how to create a new folder.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoJson
Handle hoHttp
String sRespStr
ReqBody Handle hoJsonReqBody
Variant vJObj
Handle hoJObj
String sUrl
Variant vResp
Handle hoResp
String sTemp1
Integer iTemp1
Boolean bTemp1
Move False To iSuccess
// 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
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "client_id" "2871da2c-8176-4b7f-869b-2311aa82e743" To iSuccess
Get ComUpdateString Of hoJson "client_secret" "2hu9Q~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH" To iSuccess
Get ComUpdateString Of hoJson "scope" "https://graph.microsoft.com/.default" To iSuccess
Get ComUpdateString Of hoJson "token_endpoint" "https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token" To iSuccess
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Get ComEmit Of hoJson To sTemp1
Set ComAuthToken Of hoHttp To sTemp1
// 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.
Get ComSetUrlVar Of hoHttp "dir_path" "/TestDir" To iSuccess
Get ComSetUrlVar Of hoHttp "user_id" "4fe732c3-322e-4a6b-b729-2fd1eb5c6104" To iSuccess
Get ComQuickGetStr Of hoHttp "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:{$dir_path}" To sRespStr
Get ComLastMethodSuccess Of hoHttp To bTemp1
If (bTemp1 = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComLoad Of hoJson sRespStr To iSuccess
Get ComLastStatus Of hoHttp To iTemp1
If (iTemp1 <> 200) Begin
Get ComLastStatus Of hoHttp To iTemp1
Showln "Failed to get parent folder item id, status code = " iTemp1
Procedure_Return
End
// The HTTP request body should contain JSON like this:
// {
// "name": "abc",
// "folder": { }
// }
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonReqBody
If (Not(IsComObjectCreated(hoJsonReqBody))) Begin
Send CreateComObject of hoJsonReqBody
End
Get ComAppendString Of hoJsonReqBody "name" "abc" To iSuccess
Get Create (RefClass(cComChilkatJsonObject)) To hoJObj
If (Not(IsComObjectCreated(hoJObj))) Begin
Send CreateComObject of hoJObj
End
Get pvComObject of hoJObj to vJObj
Get ComAppendObject2 Of hoJsonReqBody "folder" vJObj To iSuccess
Showln "JSON body:"
Get ComEmit Of hoJsonReqBody To sTemp1
Showln sTemp1
// Set the URL var for the next request which will create the new folder.
Get ComStringOf Of hoJson "id" To sTemp1
Get ComSetUrlVar Of hoHttp "parent_item_id" sTemp1 To iSuccess
Move "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/items/{$parent_item_id}/children" To sUrl
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoJsonReqBody to vJsonReqBody
Get pvComObject of hoResp to vResp
Get ComHttpJson Of hoHttp "POST" sUrl vJsonReqBody "application/json" vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoad Of hoJson sTemp1 To iSuccess
Showln "Response:"
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
// A 201 response indicates success.
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 <> 201) Begin
Showln "Failed to create folder."
Get ComStatusCode Of hoResp To iTemp1
Showln "Response status code = " iTemp1
End
Else Begin
Showln "Successfully created folder."
End
// 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.
End_Procedure