我在一个控制台应用程序中工作,这个应用程序每周都要在服务器上执行,基本上它会在excel中生成一个报告,然后它必须将它上传到dropbox中的文件夹,我已经为最后一部分尝试了很多东西我终于得到了这个代码不起作用但没有抛出任何异常(在我有一个抛出和无效的文件夹格式之前)
Dim _path As String
_path = "/Pruebas/" & Path.GetFileName(FilePath)
Try
Dim rawData = File.ReadAllBytes(FilePath)
Dim str = System.Text.Encoding.Default.GetString(rawData)
Using mem = New MemoryStream(Encoding.UTF8.GetBytes(str))
Dim Up = I.Files.UploadAsync(_path, body:=mem)
MsgBox("Successfully Uploaded")
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
它不会抛出异常,但也会起作用,任何帮助我都会感激不尽。
答案 0 :(得分:0)
试试这个。
Dim Up = I.Files.UploadAsync(_path, WriteMode.Overwrite.Instance, body:=mem)