VBScript Box: Get Folder Items

Back to Index

Gets all of the files, folders, or web links contained within a folder.

Documentation: https://developer.box.com/reference#get-a-folders-items

CURL Command

curl https://api.box.com/2.0/folders/BOX_FOLDER_ID/items?limit=2&offset=0 \
-H "Authorization: Bearer BOX_ACCESS_TOKEN"

VBScript Example

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set rest = CreateObject("Chilkat_9_5_0.Rest")

'  URL: https://api.box.com/2.0/folders/BOX_FOLDER_ID/items?limit=2&offset=0
bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect("api.box.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    outFile.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

success = rest.AddHeader("Authorization","Bearer BOX_ACCESS_TOKEN")

set sbResponseBody = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/2.0/folders/BOX_FOLDER_ID/items?limit=2&offset=0",sbResponseBody)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

set jsonResponse = CreateObject("Chilkat_9_5_0.JsonObject")
success = jsonResponse.LoadSb(sbResponseBody)

total_count = jsonResponse.IntOf("total_count")
offset = jsonResponse.IntOf("offset")
limit = jsonResponse.IntOf("limit")
i = 0
count_i = jsonResponse.SizeOfArray("entries")
Do While i < count_i
    jsonResponse.I = i
    type = jsonResponse.StringOf("entries[i].type")
    id = jsonResponse.StringOf("entries[i].id")
    file_versionType = jsonResponse.StringOf("entries[i].file_version.type")
    file_versionId = jsonResponse.StringOf("entries[i].file_version.id")
    file_versionSha1 = jsonResponse.StringOf("entries[i].file_version.sha1")
    sequence_id = jsonResponse.StringOf("entries[i].sequence_id")
    etag = jsonResponse.StringOf("entries[i].etag")
    sha1 = jsonResponse.StringOf("entries[i].sha1")
    name = jsonResponse.StringOf("entries[i].name")
    i = i + 1
Loop
i = 0
count_i = jsonResponse.SizeOfArray("order")
Do While i < count_i
    jsonResponse.I = i
    by = jsonResponse.StringOf("order[i].by")
    direction = jsonResponse.StringOf("order[i].direction")
    i = i + 1
Loop

outFile.Close

Sample JSON Response Body

{
  "total_count": 2,
  "entries": [
    {
      "type": "file",
      "id": "246181882790",
      "file_version": {
        "type": "file_version",
        "id": "259636211878",
        "sha1": "c9d2492fb97f88a9b4d1e35f32a3410e95853f18"
      },
      "sequence_id": "0",
      "etag": "0",
      "sha1": "c9d2492fb97f88a9b4d1e35f32a3410e95853f18",
      "name": "hedgehogs.jpg"
    },
    {
      "type": "file",
      "id": "246167973161",
      "file_version": {
        "type": "file_version",
        "id": "259621592361",
        "sha1": "df7be9dc4f467187783aca68c7ce98e4df2172d0"
      },
      "sequence_id": "0",
      "etag": "0",
      "sha1": "df7be9dc4f467187783aca68c7ce98e4df2172d0",
      "name": "penguins.jpg"
    }
  ],
  "offset": 0,
  "limit": 2,
  "order": [
    {
      "by": "type",
      "direction": "ASC"
    },
    {
      "by": "name",
      "direction": "ASC"
    }
  ]
}