cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Announcements
Want to learn some quick and useful tips to make your day easier? Check out how Calvin uses Replay to get feedback from other teams at Dropbox here.

Dropbox API Support & Feedback

Find help with the Dropbox API from other developers.

cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Vb.Net can upload a file to dropbox

Vb.Net can upload a file to dropbox

zap2it
Explorer | Level 4
Go to solution

Can you help me guys? 
Im trying to upload my first file to dropbox using vb.net. But Still have error: Status-Code:0, Content-type:0
My code below, can you correct me where do I do a mistake?
 

 Public Sub Main()

        Dim sourceFile As String = "C:\Users\rw\Desktop\Proximus_logo.png"
        Dim data As Byte() = File.ReadAllBytes(sourceFile)
        Dim RestClient As RestClient = New RestClient("https://content.dropboxapi.com/2/files/upload")
        Dim request As IRestRequest = New RestRequest(Method.POST)


        request.AddHeader("Content-Type", "application/octet-stream")
        request.AddHeader("Authorization", "Bearer <token>")
        request.Parameters.Clear()
        Dim meta As String = "{\ path\:/home/proximus_logo.png \mode\: add \ strict_conflict\:false,\autorename\: true,\mute\: false}"


        request.AddHeader("Dropbox-API-Arg", meta)
        '  request.AddHeader("Content-Length", fileLength.ToString())

        '   request.AddParameter("path", "/home/proximus_logo.png")
        '   request.AddParameter("mode", "add")
        '   request.AddParameter("autorename", True)
        '   request.AddParameter("mute", False)
        '   request.AddParameter("strict_conflict", False)

        request.AddParameter("application/octet-stream", data, ParameterType.RequestBody)


        Dim response As RestResponse = RestClient.Execute(request)

        If response.IsSuccessful Then
            Console.WriteLine("SUCCESS: " & response.StatusDescription)
        Else
            Console.WriteLine("FAILED: " & response.StatusDescription)
        End If

        Console.WriteLine(response.Content)
    End Sub

 

1 Accepted Solution

Accepted Solutions

Greg-DB
Dropbox Staff
Go to solution

Based on the output you shared, it looks like you're getting a status code of "0". That's not a real HTTP status code, however, so it looks like the HTTPS connection itself may not be succeeding. Is there any reason (e.g., proxy, firewall, security software, etc.) that you wouldn't be able to connect to https://content.dropboxapi.com?

View solution in original post

3 Replies 3

Greg-DB
Dropbox Staff
Go to solution

Based on the output you shared, it looks like you're getting a status code of "0". That's not a real HTTP status code, however, so it looks like the HTTPS connection itself may not be succeeding. Is there any reason (e.g., proxy, firewall, security software, etc.) that you wouldn't be able to connect to https://content.dropboxapi.com?

zap2it
Explorer | Level 4
Go to solution

You were right, Thank you. 

I spend long hours solving this problem. It was a proxy problem.

Mohanad1
Explorer | Level 3

Imports System.IO
Imports RestSharp

Module Module1
Sub Main()
Dim sourceFile As String = "C:\Users\rw\Desktop\Proximus_logo.png"
Dim data As Byte() = File.ReadAllBytes(sourceFile)
Dim RestClient As RestClient = New RestClient("https://content.dropboxapi.com/2/files/upload")
Dim request As RestRequest = New RestRequest(Method.POST)

request.AddHeader("Content-Type", "application/octet-stream")
request.AddHeader("Authorization", "Bearer <token>")

Dim meta As String = "{""path"": ""/home/proximus_logo.png"", ""mode"": ""add"", ""autorename"": true, ""mute"": false}"
request.AddHeader("Dropbox-API-Arg", meta)

request.AddParameter("application/octet-stream", data, ParameterType.RequestBody)

Dim response As IRestResponse = RestClient.Execute(request)

If response.IsSuccessful Then
Console.WriteLine("SUCCESS: " & response.StatusDescription)
Else
Console.WriteLine("FAILED: " & response.StatusDescription)
End If

Console.WriteLine(response.Content)
End Sub
End Module

Need more support?
Who's talking

Top contributors to this post

  • User avatar
    Mohanad1 Explorer | Level 3
  • User avatar
    zap2it Explorer | Level 4
  • User avatar
    Greg-DB Dropbox Staff
What do Dropbox user levels mean?