PowerBuilder

OneDrive -- List Large Directory

See more OneDrive Examples

Demonstrates how to get the entire collection of DriveItem children when the collection is large and multiple pages need to be requested. To test this example, I created a DriveItem with 450 children.

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

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Json
oleobject loo_Http
string ls_Resp
integer i
integer li_NumItems
integer li_BGetMore
string ls_NextLink

li_Success = 0

// 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
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("client_id","2871da2c-8176-4b7f-869b-2311aa82e743")
loo_Json.UpdateString("client_secret","2hu9Q~~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH")
loo_Json.UpdateString("scope","https://graph.microsoft.com/.default")
loo_Json.UpdateString("token_endpoint","https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token")

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

loo_Http.AuthToken = loo_Json.Emit()

// This example will get the DriveItems in /lots-of-files, which has 450 children..
loo_Http.SetUrlVar("item_path","/lots-of-files")
loo_Http.SetUrlVar("user_id","4fe732c3-322e-4a6b-b729-2fd1eb5c6104")

loo_Json.EmitCompact = 0

// This loop will download DriveItems in sets of 25 until no more exist.
li_BGetMore = 1
// (Add the $top query parameter to define the page size, i.e. the max number of results to return).
ls_NextLink = "https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:{$item_path}:/children?$top=25"

do while (li_BGetMore = 1)

    // Get the next chunk of DriveItems
    ls_Resp = loo_Http.QuickGetStr(ls_NextLink)
    if loo_Http.LastMethodSuccess <> 1 then
        Write-Debug loo_Http.LastErrorText
        destroy loo_Json
        destroy loo_Http
        return
    end if

    // The response should be JSON.
    loo_Json.Load(ls_Resp)

    // A successful response should return a status code of 200.
    if loo_Http.LastStatus <> 200 then
        Write-Debug loo_Json.Emit()
        Write-Debug "Response status = " + string(loo_Http.LastStatus)
        destroy loo_Json
        destroy loo_Http
        return
    end if

    // Iterate over the DriveItems in the JSON response:
    i = 0
    li_NumItems = loo_Json.SizeOfArray("value")
    do while i < li_NumItems
        loo_Json.I = i
        Write-Debug "name: " + loo_Json.StringOf("value[i].name")
        i = i + 1
    loop

    // If a nextLink was included in the JSON, use it to get the next set of 50 DriveItems.
    // Otherwise, exit the loop.
    if loo_Json.HasMember("~"@odata.nextLink~"") = 1 then
        ls_NextLink = loo_Json.StringOf("~"@odata.nextLink~"")
        Write-Debug "nextLink: " + ls_NextLink
    else
        li_BGetMore = 0
    end if

loop


destroy loo_Json
destroy loo_Http