Visual Basic 6.0 Box: Upload File

Back to Index

Uploads a file to a destination (parent) folder. The BOX_FOLDER_ID should be replaced with the id of the folder, or 0 for the root folder.

Documentation: https://developer.box.com/reference#upload-a-file

CURL Command

curl https://upload.box.com/api/2.0/files/content \
  -H "Authorization: Bearer BOX_ACCESS_TOKEN" -X POST \
  -F attributes='{"name":"tigers.jpeg", "parent":{"id":"BOX_FOLDER_ID"}}' \
  -F file=@tigers.jpeg

Visual Basic 6.0 Example

Dim rest As New ChilkatRest
Dim success As Long

'  URL: https://upload.box.com/api/2.0/files/content
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("upload.box.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print "ConnectFailReason: " & rest.ConnectFailReason
    Debug.Print rest.LastErrorText
    Exit Sub
End If

rest.PartSelector = "1"
success = rest.AddHeader("Content-Disposition","form-data; name=""attributes""")
success = rest.SetMultipartBodyString("{""name"":""tigers.jpeg"", ""parent"":{""id"":""BOX_FOLDER_ID""}}")

rest.PartSelector = "2"
Dim fileStream2 As New ChilkatStream
fileStream2.SourceFile = "tigers.jpeg"
success = rest.AddHeader("Content-Disposition","form-data; name=""tigers.jpeg""; filename=""tigers.jpeg""")
success = rest.AddHeader("Content-Type","image/jpeg")
success = rest.SetMultipartBodyStream(fileStream2)

rest.PartSelector = "0"

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

rest.PartSelector = "0"
success = rest.AddHeader("Content-Type","multipart/form-data")

Dim strResponseBody As String
strResponseBody = rest.FullRequestMultipart("POST","/api/2.0/files/content")
If (rest.LastMethodSuccess <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.Load(strResponseBody)

Dim total_count As Long
Dim i As Long
Dim count_i As Long
Dim type As String
Dim id As String
Dim sequence_id As String
Dim etag As String
Dim sha1 As String
Dim name As String
Dim description As String
Dim size As Long
Dim path_collectionTotal_count As Long
Dim created_at As String
Dim modified_at As String
Dim trashed_at As Long
Dim purged_at As Long
Dim content_created_at As String
Dim content_modified_at As String
Dim created_byType As String
Dim created_byId As String
Dim created_byName As String
Dim created_byLogin As String
Dim modified_byType As String
Dim modified_byId As String
Dim modified_byName As String
Dim modified_byLogin As String
Dim owned_byType As String
Dim owned_byId As String
Dim owned_byName As String
Dim owned_byLogin As String
Dim shared_link As Long
Dim parentType As String
Dim parentId As String
Dim parentSequence_id As String
Dim parentEtag As String
Dim parentName As String
Dim item_status As String
Dim j As Long
Dim count_j As Long
Dim sequence_id_bool As Long
Dim etag_bool As Long

total_count = jsonResponse.IntOf("total_count")
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")
    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")
    description = jsonResponse.StringOf("entries[i].description")
    size = jsonResponse.IntOf("entries[i].size")
    path_collectionTotal_count = jsonResponse.IntOf("entries[i].path_collection.total_count")
    created_at = jsonResponse.StringOf("entries[i].created_at")
    modified_at = jsonResponse.StringOf("entries[i].modified_at")
    trashed_at = jsonResponse.IsNullOf("entries[i].trashed_at")
    purged_at = jsonResponse.IsNullOf("entries[i].purged_at")
    content_created_at = jsonResponse.StringOf("entries[i].content_created_at")
    content_modified_at = jsonResponse.StringOf("entries[i].content_modified_at")
    created_byType = jsonResponse.StringOf("entries[i].created_by.type")
    created_byId = jsonResponse.StringOf("entries[i].created_by.id")
    created_byName = jsonResponse.StringOf("entries[i].created_by.name")
    created_byLogin = jsonResponse.StringOf("entries[i].created_by.login")
    modified_byType = jsonResponse.StringOf("entries[i].modified_by.type")
    modified_byId = jsonResponse.StringOf("entries[i].modified_by.id")
    modified_byName = jsonResponse.StringOf("entries[i].modified_by.name")
    modified_byLogin = jsonResponse.StringOf("entries[i].modified_by.login")
    owned_byType = jsonResponse.StringOf("entries[i].owned_by.type")
    owned_byId = jsonResponse.StringOf("entries[i].owned_by.id")
    owned_byName = jsonResponse.StringOf("entries[i].owned_by.name")
    owned_byLogin = jsonResponse.StringOf("entries[i].owned_by.login")
    shared_link = jsonResponse.IsNullOf("entries[i].shared_link")
    parentType = jsonResponse.StringOf("entries[i].parent.type")
    parentId = jsonResponse.StringOf("entries[i].parent.id")
    parentSequence_id = jsonResponse.StringOf("entries[i].parent.sequence_id")
    parentEtag = jsonResponse.StringOf("entries[i].parent.etag")
    parentName = jsonResponse.StringOf("entries[i].parent.name")
    item_status = jsonResponse.StringOf("entries[i].item_status")
    j = 0
    count_j = jsonResponse.SizeOfArray("entries[i].path_collection.entries")
    Do While j < count_j
        jsonResponse.J = j
        type = jsonResponse.StringOf("entries[i].path_collection.entries[j].type")
        id = jsonResponse.StringOf("entries[i].path_collection.entries[j].id")
        sequence_id_bool = jsonResponse.IsNullOf("entries[i].path_collection.entries[j].sequence_id")
        etag_bool = jsonResponse.IsNullOf("entries[i].path_collection.entries[j].etag")
        name = jsonResponse.StringOf("entries[i].path_collection.entries[j].name")
        j = j + 1
    Loop
    i = i + 1
Loop

Sample JSON Response Body

{
  "total_count": 1,
  "entries": [
    {
      "type": "file",
      "id": "5000948880",
      "sequence_id": "3",
      "etag": "3",
      "sha1": "134b65991ed521fcfe4724b7d814ab8ded5185dc",
      "name": "tigers.jpeg",
      "description": "a picture of tigers",
      "size": 629644,
      "path_collection": {
        "total_count": 2,
        "entries": [
          {
            "type": "folder",
            "id": "0",
            "sequence_id": null,
            "etag": null,
            "name": "All Files"
          },
          {
            "type": "folder",
            "id": "11446498",
            "sequence_id": "1",
            "etag": "1",
            "name": "Pictures"
          }
        ]
      },
      "created_at": "2012-12-12T10:55:30-08:00",
      "modified_at": "2012-12-12T11:04:26-08:00",
      "trashed_at": null,
      "purged_at": null,
      "content_created_at": "2013-02-04T16:57:52-08:00",
      "content_modified_at": "2013-02-04T16:57:52-08:00",
      "created_by": {
        "type": "user",
        "id": "17738362",
        "name": "sean rose",
        "login": "sean@box.com"
      },
      "modified_by": {
        "type": "user",
        "id": "17738362",
        "name": "sean rose",
        "login": "sean@box.com"
      },
      "owned_by": {
        "type": "user",
        "id": "17738362",
        "name": "sean rose",
        "login": "sean@box.com"
      },
      "shared_link": null,
      "parent": {
        "type": "folder",
        "id": "11446498",
        "sequence_id": "1",
        "etag": "1",
        "name": "Pictures"
      },
      "item_status": "active"
    }
  ]
}