VBScript Requires Chilkat v11.0.0+

SharePoint Get Files in Root Folder

See more SharePoint Examples

Gets the list of files that exist in the root folder. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  This requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat.Http")

'  --------------------------------------------------------------------------------------------------------
'  Provide the information needed for Chilkat to automatically fetch the OAuth2.0 access token as needed.

'  To create your App Registration for SharePoint in Azure Entra ID,
'  see How to Create SharePoint App Registration for OAuth 2.0 Client Credentials

set jsonOAuthCC = CreateObject("Chilkat.JsonObject")
success = jsonOAuthCC.UpdateString("client_id","CLIENT_ID")
success = jsonOAuthCC.UpdateString("client_secret","SECRET_VALUE")
success = jsonOAuthCC.UpdateString("scope","https://graph.microsoft.com/.default")
success = jsonOAuthCC.UpdateString("token_endpoint","https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token")

http.AuthToken = jsonOAuthCC.Emit()
'  --------------------------------------------------------------------------------------------------------

'  Indicate that we want a JSON reply
http.Accept = "application/json;odata=verbose"

success = http.SetUrlVar("sharepoint_hostname","example.sharepoint.com")
set sbJson = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://graph.microsoft.com/v1.0/sites/SITE_ID/drive/root/children",sbJson)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set json = CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sbJson)

'  Iterate over the results and get each file's name, size, and last-modified date/time.

numFiles = json.SizeOfArray("d.results")
outFile.WriteLine("Number of Files in the SharePoint root folder = " & numFiles)

i = 0
Do While i < numFiles
    json.I = i

    filename = json.StringOf("d.results[i].Name")
    fileRelativeUri = json.StringOf("d.results[i].ServerRelativeUrl")
    fileSize = json.IntOf("d.results[i].Length")

    outFile.WriteLine((i + 1) & ": " & filename)
    outFile.WriteLine("    Relative URI: " & fileRelativeUri)
    outFile.WriteLine("    Size in Bytes: " & fileSize)

    i = i + 1
Loop

'  The output of this program when I tested it:

outFile.Close