Sub PostToS3()
'use a presigned url
Dim filePath As String = "C:\temp\Agreement.pdf"
Dim url As String = "*** PUT REAL URL HERE ***"
Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Try
request.Method = "PUT"
Using fileStream As FileStream = File.OpenRead(filePath)
Using requestStream As Stream = request.GetRequestStream()
Dim bufferSize As Integer = 1024
Dim buffer(bufferSize - 1) As Byte
Dim byteCount As Integer = 0
byteCount = fileStream.Read(buffer, 0, bufferSize)
Do While byteCount > 0
requestStream.Write(buffer, 0, byteCount)
byteCount = fileStream.Read(buffer, 0, bufferSize)
Loop
End Using
End Using
Dim result As String
Using response As WebResponse = request.GetResponse()
Using reader As New StreamReader(response.GetResponseStream())
result = reader.ReadToEnd()
End Using
End Using
End
Catch ex As Exception
End Try
End Sub