DataFlex
DataFlex
OneDrive -- Rename or Move File or Folder
See more OneDrive Examples
Demonstrates how to rename or move a file or folder.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoJson
Handle hoHttp
String sRespStr
String sNewParentFolderId
ReqBody Handle hoJsonReqBody
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
// First get the new parent folder ID.
Get ComSetUrlVar Of hoHttp "user_id" "4fe732c3-322e-4a6b-b729-2fd1eb5c6104" To iSuccess
Get ComSetUrlVar Of hoHttp "dir_path" "/Pictures" 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
Get ComStringOf Of hoJson "id" To sNewParentFolderId
// This example will both rename and move the file /TestDir/penguins.jpg to /Pictures/three_penguins.jpg
// The body of the PATCH request will contain the following JSON:
// {
// "name": "three_penguins.jpg",
// "parentReference" : {"id": "{parent_folder_id}"}
// }
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonReqBody
If (Not(IsComObjectCreated(hoJsonReqBody))) Begin
Send CreateComObject of hoJsonReqBody
End
Get ComUpdateString Of hoJsonReqBody "name" "three_penguins.jpg" To iSuccess
Get ComUpdateString Of hoJsonReqBody "parentReference.id" sNewParentFolderId To iSuccess
Get ComEmit Of hoJsonReqBody To sTemp1
Showln sTemp1
Get ComSetUrlVar Of hoHttp "user_id" "4fe732c3-322e-4a6b-b729-2fd1eb5c6104" To iSuccess
Get ComSetUrlVar Of hoHttp "from_path" "/TestDir/penguins.jpg" To iSuccess
Move "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:{$from_path}" 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 "PATCH" sUrl vJsonReqBody "application/json" vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// If successful, a 200 status code is returned.
Set ComEmitCompact Of hoJson To False
Get ComBodyStr Of hoResp To sTemp1
Get ComLoad Of hoJson sTemp1 To iSuccess
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 = 200) Begin
Showln "Success."
End
Else Begin
Get ComStatusCode Of hoResp To iTemp1
Showln "Response status = " iTemp1
Showln "failed."
End
// For a successful response, the DriveItem JSON object is returned. For example:
// {
// "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/drive/root/$entity",
// "@microsoft.graph.downloadUrl": "https://uj3pqw.dm2301.livefilestore.com/y4p1tXxbqLb4LVCdbXoXCXsqGaHcfH2Zw02p4_01Bg2eOyJxlU5o-40JLulT1oIOfDemlT4Hir7mrwKfYOj7-oNUweGNDSjqCpejYh30ZkYWV4f-zOsk8GAy2F8YmUx6UF_2R5bGIdseSpUVQ4wPJ4lDvFxA4GdEJN5ZS8flZFzHLvJSkAUKw98ZTbd_HHMQLUBcqw4fA3is52dtk0dwJIyW0queRqX5OIO6vysKJRGzU0",
// "createdBy": {
// "user": {
// "displayName": "Matt Smith",
// "id": "3a33fceb9b74cc15"
// }
// },
// "createdDateTime": "2017-06-04T15:24:06.84Z",
// "cTag": "aYzozQTMzRkNFQjlCNzRDQzE1ITQ4NjkuMjU3",
// "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODY5LjM",
// "id": "3A33FCEB9B74CC15!4869",
// "lastModifiedBy": {
// "application": {
// "displayName": "Chilkat",
// "id": "441c9990"
// },
// "user": {
// "displayName": "Matt Smith",
// "id": "3a33fceb9b74cc15"
// }
// },
// "lastModifiedDateTime": "2017-06-04T16:30:28.057Z",
// "name": "three_penguins.jpg",
// "parentReference": {
// "driveId": "3a33fceb9b74cc15",
// "id": "3A33FCEB9B74CC15!185",
// "name": "Pictures",
// "path": "/drive/root:/Pictures"
// },
// "size": 777835,
// "webUrl": "https://1drv.ms/i/s!ABXMdJvr_DM6pgU",
// "file": {
// "hashes": {
// "sha1Hash": "DF7BE9DC4F467187783ACA68C7CE98E4DF2172D0"
// },
// "mimeType": "image/jpeg"
// },
// "fileSystemInfo": {
// "createdDateTime": "2017-06-04T15:24:06.84Z",
// "lastModifiedDateTime": "2017-06-04T16:30:28.056Z"
// },
// "image": {
// "height": 768,
// "width": 1024
// },
// "photo": {
// "takenDateTime": "2008-02-18T05:07:31Z"
// }
// }
//
//
End_Procedure