VB.NETによるkintoneへのファイルアップロードについて

お世話になっております。

VB.NETにて、特定の場所に保存されているファイルをkintoneへアップロードしてキーを取得し、
キー情報にレコードを関連付ける処理を作成しています。
ドキュメントのファイルアップロードのページを参考に様々なコードを試してみたのですが、
ファイルアップロードで以下のエラーが発生してしまいます。

☆エラー内容
アップロードするHTTPリクエストの形式が正しくありません。HTTPリクエストはマルチパート形式である必要があります。

ファイルアップロード部分、レコード登録部分はVB.NETにより別々に製造を行っており、
レコード登録部分の処理では正常にレコード登録ができています。
どの部分が誤っているかわからず、ご指摘いただけないでしょうか。


'以下、試したコードのイメージとなります
Dim strKintoneFileUrl As String = “https://xxxxxxx.cybozu.com/k/v1/file.json
Dim request As MSXML2.ServerXMLHTTP60
request = New MSXML2.ServerXMLHTTP60()

Dim strSendData As Text.StringBuilder
Dim objBody As Object

With request
.open(“POST”, strKintoneFileUrl)
.setRequestHeader(“X-Requested-With”, “XMLHttpRequest”)
.setRequestHeader(“X-Cybozu-Authorization”, “xxxxxxxxxxxxxxxx”)
.setRequestHeader(“Content-Type”, “multipart/form-data”)

strSendData = New Text.StringBuilder()
With strSendData
.Append(“{Content-Disposition: form-data; name=”“file”“; filename=”“C:\xxx\test.txt”“},”)
.Append(“{Content-Type:text/plain}”)
End With

objBody = strSendData.ToString()
.send(objBody)

iStatus = .status '・・・520が返ってくる
strStatus = .statusText
strPosttResponse = .responseText '・・・“code”:“GAIA_HM02”,“id”:“xxxxx”,“message”:"(上部記載のエラー内容)が設定されている

End With

こんにちは。

この辺りとか

https://gist.github.com/yamaryu0508/11404242

拙稿ですが、

https://qiita.com/sy250f/items/26c126d0624c07a82657

などは、参考になりますでしょうか。

このトピックはベストアンサーに選ばれた返信から 3 日が経過したので自動的にクローズされました。新たに返信することはできません。