谢谢大家,感谢您的提示,现在可以工作了,该文件已上传到保管箱应用程序中的文件夹,代码如下:
Dim client As DropNetClient
Dim dropboxLoggedIn As Boolean = False
Dim dropboxAsecret
Dim dropboxAtoken
Dim token As UserLogin
Dim url As String = ""
Private Sub test_form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
client = New DropNetClient("xxxxxx", "xxxxxxx")
client.UseSandbox = True
Dim login = client.UserLogin
token = client.GetToken()
url = client.BuildAuthorizeUrl()
Process.Start(url)
End Sub
Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
client.GetAccessToken()
dropboxAsecret = client.UserLogin.Secret
dropboxAtoken = client.UserLogin.Token
Try
Dim rawData As Byte() = File.ReadAllBytes("c:\flor_lotus.png")
Dim result As MetaData = client.UploadFile("/geral", "flor_lotus.png", rawData)
Catch ex As DropNet.Exceptions.DropboxException
MessageBox.Show(ex.Message)
End Try
End Sub