VBScript
VBScript
Box.com Download Binary File to Memory
See more Box Examples
Retrieves the actual data of the file into a memory (not to a local file).Chilkat VBScript Downloads
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")
http.KeepResponseBody = 1
' Provide a previously obtained OAuth2 access token.
' See Get Box OAuth2 Access Token.
http.AuthToken = "BOX_ACCESS_TOKEN"
http.FollowRedirects = 1
' The file is specified by the file ID.
' In this case, we're downloading a file with FILE_ID = 283371752129.
' The general form of the URL for downloading is: https://api.box.com/2.0/files/FILE_ID/content
set bd = CreateObject("Chilkat.BinData")
success = http.DownloadBd("https://api.box.com/2.0/files/283371752129/content",bd)
statusCode = http.LastStatus
If (success = 0) Then
If (statusCode = 0) Then
' Unable to either send the request or get the response.
outFile.WriteLine(http.LastErrorText)
Else
' We got a response, but the status code was not in the 200s
outFile.WriteLine("Response status code: " & statusCode)
' Examine the response body.
outFile.WriteLine("Response body:")
outFile.WriteLine(http.LastResponseBody)
End If
outFile.WriteLine("Download failed.")
Else
outFile.WriteLine("Downloaded tigers.jpeg into an object holding the binary data.")
outFile.WriteLine("Number of bytes: " & bd.NumBytes)
End If
outFile.Close