(Excel) OneDrive -- Download to File

Downloads the contents of a DriveItem directly to a file in the local filesystem.

Note: This example requires Chilkat v9.5.0.68 or greater.

Download Excel Class Modules Chilkat Excel Class Modules

' 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:/{item-path}:/content

' Make sure to automatically follow redirects
http.FollowRedirects = True

' This example will download /Misc/wildlife/penguins.jpg
Dim success As Boolean
success = http.SetUrlVar("item_path","Misc/wildlife/penguins.jpg")

' Stream the response body directly to a local file.

localPath = "qa_output/penguins.jpg"


success = http.Download("https://graph.microsoft.com/v1.0/me/drive/root:/{$item_path}:/content",localPath)
If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' If the response status code was not 200, then it failed.
If (http.LastStatus <> 200) Then
    Debug.Print "Response Status Code = "; http.LastStatus
    Debug.Print "Failed."
    Exit Sub
End If

' If we got here, then the file was successfully downloaded.
Debug.Print "Download from OneDrive successful."