Unable to upload a text file using vba

Question

I'm trying to upload a tiny text file in a website using vba. When I run the script I encounter this error {"success":false,"error":400,"message":"Trouble uploading file"}. I mimicked the same approach using vba that I did and found success using python. I got rid of the headers altogether in python so I suppose multipart headers is not that important to upload the file successfully.

Using vba (I got the above error):

Sub UploadFile()
    Dim Http As New XMLHTTP60, sPostData$
    Dim nFile&, baBuffer() As Byte

    nFile = FreeFile
    Open "C:\Users\WCS\Desktop\some_text.txt" For Binary Access Read As nFile
        If LOF(nFile) > 0 Then
            ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
            Get nFile, , baBuffer
            sPostData = StrConv(baBuffer, vbUnicode)
        End If
    Close nFile

'    MsgBox sPostData 'to examine if it is able to print the text

    With Http
        .Open "POST", "https://file.io/"
        .setRequestHeader "x-requested-with", "XMLHttpRequest"
        .send ("file=" & sPostData)

        Debug.Print .responseText
    End With
End Sub

Using vba (another way but got the same error):

Sub UploadFile()
    Dim Http As New XMLHTTP60, sPostData$

    With CreateObject("ADODB.Stream")
        .Charset = "utf-8"
        .Open
        .LoadFromFile ("C:\Users\WCS\Desktop\some_text.txt")
        sPostData = .ReadText()
    End With

    With Http
        .Open "POST", "https://file.io/"
        .setRequestHeader "x-requested-with", "XMLHttpRequest"
        .send ("file=" & sPostData)

        Debug.Print .responseText
    End With
End Sub

Using python (I got success):

import requests

url = 'https://file.io/'

files = {
   'file': open('some_text.txt','rb') 
}

def upload_file(link):
    res = requests.post(link,files=files)
    print(res.content)

if __name__ == '__main__':
    upload_file(url)

Btw, this is what the text file contains hi there!!!

Answer 1

If the file was textfile, you can store the contents in a variable and in this case to send the contents as text

Sub UploadFile()
Dim http As New XMLHTTP60, sPostData$

With CreateObject("ADODB.Stream")
    .Charset = "UTF-8"
    .Open
    .LoadFromFile (ThisWorkbook.Path & "\Sample.txt")
    sPostData = .ReadText()
End With

With http
    .Open "POST", "https://file.io"
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send ("text=" & sPostData)
    Debug.Print .responseText
End With
End Sub

The code depends on the code derived from this LINK