After uploading a compressed ZIP file cannot be opened by the 7Zip or WinZip program on my desktop PC. I can open the original file but after I upload it using the sample code below, the file is about 90KB larger and corrupted. Does anyone know what I am doing wrong?
Thank you in advance.
cj51
---------------------SAMPLE VBA CODE-----------------------
Function ReadBinary(sFile As String) As Byte()
Dim nFile As Integer
ReadBinary = ""
nFile = FreeFile
Open sFile For Binary Access Read As #nFile
If LOF(nFile) > 0 Then
ReDim ReadBinary(0 To LOF(nFile) - 1)
Get nFile, , ReadBinary
End If
Close #nFile
End Function
------------------ API SYNTAX STARTS HERE ---------------
strFile = ReadBinary(FileName)
arg = "{""path"":" & DQ & "/File requests/StatusLog/" & DropBox_FileName & DQ & "," & """mode"":""overwrite"",""autorename"": true,""mute"":true}"
req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
req.setRequestHeader "Authorization", "Bearer <yadayada"
req.setRequestHeader "Content-Type", "application/octet-stream"
req.setRequestHeader "Content-length", Len(strFile)
req.setRequestHeader "Dropbox-API-Arg", arg
req.setRequestHeader "User-Agent", "api-explorer-client"
req.send strFile
