Attaching a text to jira issu VB

[LostInMadness Forever]

Hi, 

I am triing to send a txt file to a jira issue in VB.

I know, there are a alot of topic on, but i try all ad nothing works :/

I got a 200 ansmwer but nothing is attached.

This is my code

*********************************************************************************************

*********************************************************************************************

*********************************************************************************************

Public Function jiraSendFile(user As String, password As String, id As String, fileToUpload As String)

Dim oRequest As Object
oRequest = New WinHttp.WinHttpRequest
Dim data As String
Dim response As String
Dim status As String
Dim url As String
'Dim File As String

Dim file As New StreamReader(fileToUpload)

*******************************      LOGIN      *****************************************
data = "{""username"": """ & user & """,""password"": """ & password & """}"
url = "http://localhost:8080/rest/auth/1/session"
oRequest.Open("POST", url)
oRequest.setRequestHeader("Content-Type", "application/json")
oRequest.Send(data)
response = oRequest.ResponseText
status = oRequest.Status

*******************************      ATTACH      *****************************************

'data = fieldToUpdate
'File = fileToUpload

url = "http://localhost:8080/rest/api/2/issue/" & id & "/attachments"
oRequest.Open("POST", url)
oRequest.setRequestHeader("X-Atlassian-Token", "no-check")
'oRequest.setRequestHeader("Content-Type", "multipart/form-data; boundary=21b8f440a67b603ac60941ee")
oRequest.setRequestHeader("Content-Type", "multipart/form-data; boundary=----WebKitFormBoundaryyrV7KO0BoCBuDbTL")
oRequest.setRequestHeader("Content-Disposition", "form-data; name = ""file.txt""; filename = C:\Users\Guile\Documents\file.txt""")
oRequest.Send(file)

'oRequest.setRequestHeader("Content-Type", "application/json")
'oRequest.setRequestHeader("Authorization", "Basic")
'oRequest.setRequestHeader("Content-Type", "application/octet-stream")
'oRequest.setRequestHeader("Content-Disposition", File)
'oRequest.Send(file)

*******************************      ANSWER      *****************************************

response = oRequest.ResponseText
status = oRequest.Status

Result.Text = Result.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Corps : " & data & vbCrLf & "Status : " & status & vbCrLf & "Réponse : " & response
Result.Update()
'MsgBox(test & vbCrLf & status & vbCrLf & vbCrLf & response)

File = Nothing
oRequest = Nothing

Return 0
End Function

*********************************************************************************************

*********************************************************************************************

*********************************************************************************************

Here the answer

*******************************      LOGIN      *****************************************

Corps : {"username": "GUILE","password": "XXXXXXX"}
Status : 200
Réponse : {"session":{"name":"JSESSIONID","value":"3E448B78F2922D246C2AB475E3014079"},"loginInfo":{"failedLoginCount":37,"loginCount":1426,"lastFailedLoginTime":"2019-10-01T13:53:32.368+0200","previousLoginTime":"2019-11-15T10:40:27.176+0100"}}

*******************************      ATTACH      *****************************************

Corps : {"username": "GUILE","password": "XXXXXXX"}
Status : 200
Réponse : []

I am really lost.. thank you !

[LostInMadness Forever]

up