Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) OneDrive -- List Root DirectoryThis gets the collection of DriveItem children of the root DriveItem. In OneDrive, a driveItem resource represents a file, folder, or other item stored in a drive. All file system objects in OneDriveare returned as driveItem resources (which are JSON objects). This example returns the collection of child DriveItems for the root DriveItem. Note: This example requires Chilkat v9.5.0.68 or greater.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' 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 FilesRead or Files.ReadWrite scope.) http.AuthToken = "MICROSOFT_GRAPH_ACCESS_TOKEN" ' Sends the following GET request: ' GET https://graph.microsoft.com/v1.0/me/drive/root/children resp = http.QuickGetStr("https://graph.microsoft.com/v1.0/me/drive/root/children") If (http.LastMethodSuccess <> True) Then Debug.Print http.LastErrorText Exit Sub End If ' The response should be JSON. Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject json.EmitCompact = False Dim success As Boolean success = json.Load(resp) ' A successful response should return a status code of 200. If (http.LastStatus <> 200) Then Debug.Print json.Emit() Debug.Print "Response status = "; http.LastStatus Exit Sub End If Debug.Print json.Emit() ' See the sample JSON response and output below.. Dim lastMod As Chilkat.CkDateTime Set lastMod = Chilkat.NewCkDateTime Dim photoTaken As Chilkat.CkDateTime Set photoTaken = Chilkat.NewCkDateTime ' Iterate over the DriveItems in the JSON response: ' (I tested this example with a root that contains a several folders, ' a JPG image file, an XML file, and a WAV audio file.) i = 0 numItems = json.SizeOfArray("value") Do While i < numItems json.I = i Debug.Print "-- DriveItem "; (i + 1) Debug.Print "id: "; json.StringOf("value[i].id") Debug.Print "name: "; json.StringOf("value[i].name") Debug.Print "size: "; json.IntOf("value[i].size") ' Get the lastModifiedDateTime success = lastMod.SetFromTimestamp(json.StringOf("value[i].fileSystemInfo.lastModifiedDateTime")) ' Is this a folder? If (json.HasMember("value[i].folder") = True) Then Debug.Print "This is a folder with "; json.IntOf("value[i].folder.childCount"); " children" End If If (json.HasMember("value[i].file") = True) Then Debug.Print "This is a file." Debug.Print "SHA1 hash: "; json.StringOf("value[i].file.hashes.sha1Hash") Debug.Print "mimeType: "; json.StringOf("value[i].mimeType") End If If (json.HasMember("value[i].image") = True) Then Debug.Print "This is an image." Debug.Print "height: "; json.IntOf("value[i].image.height") Debug.Print "width: "; json.IntOf("value[i].image.width") End If If (json.HasMember("value[i].photo") = True) Then Debug.Print "This is a photo." success = photoTaken.SetFromTimestamp(json.StringOf("value[i].photo.takenDateTime")) Debug.Print "photo taken on "; photoTaken.GetAsRfc822(True) End If If (json.HasMember("value[i].audio") = True) Then Debug.Print "This is an audio file." Debug.Print "duration: "; json.IntOf("value[i].audio.duration") End If i = i + 1 Loop ' The output for the above loop: ' -- DriveItem 1 ' id: 3A33FCEB9B74CC15!187 ' name: Documents ' size: 4452847 ' This is a folder with 8 children ' -- DriveItem 2 ' id: 3A33FCEB9B74CC15!4114 ' name: Downloads ' size: 18240001 ' This is a folder with 6 children ' -- DriveItem 3 ' id: 3A33FCEB9B74CC15!4407 ' name: lots-of-files ' size: 7542 ' This is a folder with 450 children ' -- DriveItem 4 ' id: 3A33FCEB9B74CC15!4858 ' name: Misc ' size: 819922938 ' This is a folder with 6 children ' -- DriveItem 5 ' id: 3A33FCEB9B74CC15!185 ' name: Pictures ' size: 0 ' This is a folder with 3 children ' -- DriveItem 6 ' id: 3A33FCEB9B74CC15!186 ' name: Public ' size: 0 ' This is a folder with 0 children ' -- DriveItem 7 ' id: 3A33FCEB9B74CC15!4860 ' name: hamlet.xml ' size: 279658 ' This is a file. ' SHA1 hash: C6AD0095E07141C97A3C6B85778602AD883F5500 ' mimeType: ' -- DriveItem 8 ' id: 3A33FCEB9B74CC15!4861 ' name: msg_123_abc.wav ' size: 155564 ' This is a file. ' SHA1 hash: 1F51ADBDAADEAABC2D588C2A795AE86758525984 ' mimeType: ' This is an audio file. ' duration: 9720 ' -- DriveItem 9 ' id: 3A33FCEB9B74CC15!4859 ' name: penguins.jpg ' size: 777835 ' This is a file. ' SHA1 hash: DF7BE9DC4F467187783ACA68C7CE98E4DF2172D0 ' mimeType: ' This is an image. ' height: 768 ' width: 1024 ' This is a photo. ' photo taken on Sun, 17 Feb 2008 23:07:31 -0600 ' ' ------------------------------------------------------- ' This is the JSON response when this example was tested: ' { ' "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/drive/root/children", ' "value": [ ' { ' "createdBy": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "createdDateTime": "2013-06-12T19:49:08.367Z", ' "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITE4Ny42MzYyODA2Nzc4MjI3MzAwMDA", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSExODcuMA", ' "id": "3A33FCEB9B74CC15!187", ' "lastModifiedBy": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "lastModifiedDateTime": "2017-04-17T23:16:22.273Z", ' "name": "Documents", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 4452847, ' "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6gTs", ' "fileSystemInfo": { ' "createdDateTime": "2013-06-12T19:49:08.366Z", ' "lastModifiedDateTime": "2013-06-12T19:49:08.367Z" ' }, ' "folder": { ' "childCount": 8 ' }, ' "specialFolder": { ' "name": "documents" ' } ' }, ' { ' "createdBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "createdDateTime": "2016-12-07T14:02:22.417Z", ' "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITQxMTQuNjM2MjQzMzEyODEwMjAwMDAw", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0MTE0LjE", ' "id": "3A33FCEB9B74CC15!4114", ' "lastModifiedBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "lastModifiedDateTime": "2017-03-05T17:21:21.02Z", ' "name": "Downloads", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 18240001, ' "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6oBI", ' "fileSystemInfo": { ' "createdDateTime": "2016-12-07T14:02:09Z", ' "lastModifiedDateTime": "2016-12-07T14:02:09Z" ' }, ' "folder": { ' "childCount": 6 ' } ' }, ' { ' "createdBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "createdDateTime": "2017-06-02T02:14:59.797Z", ' "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITQ0MDcuNjM2MzE5NjY2MDIzNDcwMDAw", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0NDA3LjA", ' "id": "3A33FCEB9B74CC15!4407", ' "lastModifiedBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "lastModifiedDateTime": "2017-06-02T02:16:42.347Z", ' "name": "lots-of-files", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 7542, ' "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6ojc", ' "fileSystemInfo": { ' "createdDateTime": "2017-06-02T02:13:11Z", ' "lastModifiedDateTime": "2017-06-02T02:14:54Z" ' }, ' "folder": { ' "childCount": 450 ' } ' }, ' { ' "createdBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "createdDateTime": "2017-06-02T19:06:10.293Z", ' "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITQ4NTguNjM2MzIwMjcxOTAxNDcwMDAw", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODU4LjA", ' "id": "3A33FCEB9B74CC15!4858", ' "lastModifiedBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "lastModifiedDateTime": "2017-06-02T19:06:30.147Z", ' "name": "Misc", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 819922938, ' "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6pXo", ' "fileSystemInfo": { ' "createdDateTime": "2017-06-02T19:06:02Z", ' "lastModifiedDateTime": "2017-06-02T19:06:02Z" ' }, ' "folder": { ' "childCount": 6 ' } ' }, ' { ' "createdBy": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "createdDateTime": "2013-06-12T19:49:08.123Z", ' "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITE4NS42MzYxNDU5MzkxMDcyMDAwMDA", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSExODUuMA", ' "id": "3A33FCEB9B74CC15!185", ' "lastModifiedBy": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "lastModifiedDateTime": "2016-11-13T00:31:50.72Z", ' "name": "Pictures", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 0, ' "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6gTk", ' "fileSystemInfo": { ' "createdDateTime": "2013-06-12T19:49:08.123Z", ' "lastModifiedDateTime": "2013-06-12T19:49:08.123Z" ' }, ' "folder": { ' "childCount": 3 ' }, ' "specialFolder": { ' "name": "photos" ' } ' }, ' { ' "createdBy": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "createdDateTime": "2013-06-12T19:49:08.183Z", ' "cTag": "adDozQTMzRkNFQjlCNzRDQzE1ITE4Ni42MzUwNjY2MzM0ODMwMzAwMDA", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSExODYuMQ", ' "id": "3A33FCEB9B74CC15!186", ' "lastModifiedBy": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "lastModifiedDateTime": "2013-06-12T19:49:08.303Z", ' "name": "Public", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 0, ' "webUrl": "https://1drv.ms/f/s!ABXMdJvr_DM6gTo", ' "fileSystemInfo": { ' "createdDateTime": "2013-06-12T19:49:08.183Z", ' "lastModifiedDateTime": "2013-06-12T19:49:08.183Z" ' }, ' "folder": { ' "childCount": 0 ' }, ' "shared": { ' "owner": { ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' } ' }, ' "scope": "anonymous" ' }, ' "specialFolder": { ' "name": "public" ' } ' }, ' { ' "@microsoft.graph.downloadUrl": "https://public.dm2301.livefilestore.com/y4m8Y4r_Ewfy3hIxqpU-_dxvY455X2gAZd3LJXE908zgA1ErQUm5wZpiyz6Rs0YfFb_c5SKgOFZV6HU1YpEmd0MvWbQ-dJVy2lLfRqTUnHEY8znUIQrljmTk1GR2auv4rTitRzWEZztQV0iId2-_FdQj2aZK5sdpmkdbgNuishP0NalJBsLdiBeKBVsy7A_zFTUXbw28ZzJctfyqITNUtBPxmDRzF39UWRjTo74CksCHc4", ' "createdBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "createdDateTime": "2017-06-02T19:08:34.14Z", ' "cTag": "aYzozQTMzRkNFQjlCNzRDQzE1ITQ4NjAuMjU3", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODYwLjA", ' "id": "3A33FCEB9B74CC15!4860", ' "lastModifiedBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "lastModifiedDateTime": "2017-06-02T19:08:34.14Z", ' "name": "hamlet.xml", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 279658, ' "webUrl": "https://1drv.ms/u/s!ABXMdJvr_DM6pXw", ' "file": { ' "hashes": { ' "sha1Hash": "C6AD0095E07141C97A3C6B85778602AD883F5500" ' }, ' "mimeType": "application/xml" ' }, ' "fileSystemInfo": { ' "createdDateTime": "2017-06-02T19:08:30Z", ' "lastModifiedDateTime": "2016-03-03T23:10:30Z" ' } ' }, ' { ' "@microsoft.graph.downloadUrl": "https://public.dm2301.livefilestore.com/y4mZ4m1N8Vzd40ZtPERT8qEo4nOxt786w5uHDuX4VkessshXBY9z9wyG3rb0GYAAaCYWd64tLCmFcObsobWoLZXkGwgAdBE5ebvHTxmS3W6Z7U0ZzBHviaIa2RufoGhOtAWCImPxRKxID3wPvqPW5jCG31tCXhtrJMuGHnW2TkWg3FxJEvezSkI2PBTGpMzvGVjjX-qsHSnP5OMFyx0ikwVMaGU7_KvGcDUZtj9clz8rXQ", ' "createdBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "createdDateTime": "2017-06-02T19:08:53.167Z", ' "cTag": "aYzozQTMzRkNFQjlCNzRDQzE1ITQ4NjEuMjU3", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODYxLjA", ' "id": "3A33FCEB9B74CC15!4861", ' "lastModifiedBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "lastModifiedDateTime": "2017-06-02T19:08:53.167Z", ' "name": "msg_123_abc.wav", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 155564, ' "webUrl": "https://1drv.ms/u/s!ABXMdJvr_DM6pX0", ' "audio": { ' "bitrate": 128, ' "duration": 9720, ' "hasDrm": false ' }, ' "file": { ' "hashes": { ' "sha1Hash": "1F51ADBDAADEAABC2D588C2A795AE86758525984" ' }, ' "mimeType": "audio/wav" ' }, ' "fileSystemInfo": { ' "createdDateTime": "2017-06-02T19:08:49Z", ' "lastModifiedDateTime": "2017-04-18T14:27:12Z" ' } ' }, ' { ' "@microsoft.graph.downloadUrl": "https://public.dm2301.livefilestore.com/y4m5U-QanvmGcb5NeRyPaf2dy32EyX2yf_uNvPgnioU2JGrvB25yZq4uKEiQGMex99sWQ2LXcjAQbQx41C-SpqRrccIKsTvnIbbyaB45gaBSLsTeryE75p70-l4FOXb8HJWfPZmMl30BhCqpMge2ZLVo8h3uUlL7WIijap5wHdVlb0g_nm47EMDFh3USIL43kY5u4NPpoaxNEoMGYtYZ2ojzDwu-kBgKgD0S3wxCvmlD8o", ' "createdBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "createdDateTime": "2017-06-02T19:07:06.813Z", ' "cTag": "aYzozQTMzRkNFQjlCNzRDQzE1ITQ4NTkuMjU3", ' "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODU5LjI", ' "id": "3A33FCEB9B74CC15!4859", ' "lastModifiedBy": { ' "device": { ' "id": "187ffebfaf8fa5" ' }, ' "user": { ' "displayName": "Matt Smith", ' "id": "3a33fceb9b74cc15" ' }, ' "oneDriveSync": { ' "@odata.type": "#microsoft.graph.identity", ' "id": "388149ab-8073-45aa-a68c-aac791ec9c1d" ' } ' }, ' "lastModifiedDateTime": "2017-06-02T19:07:09.203Z", ' "name": "penguins.jpg", ' "parentReference": { ' "driveId": "3a33fceb9b74cc15", ' "id": "3A33FCEB9B74CC15!184", ' "path": "/drive/root:" ' }, ' "size": 777835, ' "webUrl": "https://1drv.ms/i/s!ABXMdJvr_DM6pXs", ' "file": { ' "hashes": { ' "sha1Hash": "DF7BE9DC4F467187783ACA68C7CE98E4DF2172D0" ' }, ' "mimeType": "image/jpeg" ' }, ' "fileSystemInfo": { ' "createdDateTime": "2017-06-02T19:06:54Z", ' "lastModifiedDateTime": "2009-07-14T05:32:31Z" ' }, ' "image": { ' "height": 768, ' "width": 1024 ' }, ' "photo": { ' "takenDateTime": "2008-02-18T05:07:31Z" ' } ' } ' ] ' } |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.