Visual Basic 6.0 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"

Visual Basic 6.0 Example

Dim rest As New ChilkatRest
Dim success As Long

'  URL: https://api.box.com/2.0/folders/BOX_FOLDER_ID/items?limit=2&offset=0
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("api.box.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
    Debug.Print rest.LastErrorText
    Exit Sub
End If

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

Dim sbResponseBody As New ChilkatStringBuilder
success = rest.FullRequestNoBodySb("GET","/2.0/folders/BOX_FOLDER_ID/items?limit=2&offset=0",sbResponseBody)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.LoadSb(sbResponseBody)

Dim total_count As Long
Dim offset As Long
Dim limit As Long
Dim i As Long
Dim count_i As Long
Dim type As String
Dim id As String
Dim file_versionType As String
Dim file_versionId As String
Dim file_versionSha1 As String
Dim sequence_id As String
Dim etag As String
Dim sha1 As String
Dim name As String
Dim by As String
Dim direction As String

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

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"
    }
  ]
}