When uploading small png files 100KB or less some randomly get corrupted. This was not always a problem and seemes to have croppted up but none of the code was ever changed.
Public Async Function DropboxUpload(ByVal sql As String) As Task
Dim conn As New System.Data.SqlClient.SqlConnection(PrintQueue.ConnectionString)
Dim adpt As New System.Data.SqlClient.SqlDataAdapter(sql, conn)
Dim dt As New DataTable()
adpt.Fill(dt)
Using dbx As New DropboxClient("xxx")
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
Using mem As New FileStream("\\r2d2.agslab.local\Prod_Data\RaytracerImages\ASET\final\s" & dt.Rows(i).Item("lngstoneid").ToString & ".png", FileMode.Open, FileAccess.Read)
Dim updated = Await dbx.Files.UploadAsync("/" & dt.Rows(i).Item("lngstoneid").ToString & ".png", Dropbox.Api.Files.WriteMode.Overwrite.Instance, body:=mem)
End Using
Next
End Using
dt.Dispose()
adpt.Dispose()
conn.Close()
conn.Dispose()
End Function