なと様
こちらのスクリプト参考にさせていただきたいのですが、パスが見つかりませんのエラーになってしまいました。
以下のスクリプトに誤りがあればご教示いただけないでしょうか?
('ここから~'ここまで が差し替えた場所になります。
key = !APIキー!
filePath = !アップロードファイルパス!
workflowId = !ワークフローId!
companyName = !社名!
responseText = $レスポンス$
status = $ステータスコード$
Dim stream
Dim binStream
Dim workBinStream
Dim oHTTP : Set oHTTP = CreateObject("MSXML2.XMLHTTP")
Set stream = CreateObject("ADODB.Stream")
Set binStream = CreateObject("ADODB.Stream")
Set workBinStream = CreateObject("ADODB.Stream")
strBoundary = "boundary"
strPost = "https://" & companyName & ".dx-suite.com/wf/api/standard/v2/workflows/" & workflowId & "/units"
oHTTP.Open "POST", strPost, False
oHTTP.SetRequestHeader "apikey", key
oHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary="&strBoundary
'バイナリ変換用ストリーム
workBinStream.Open
workBinStream.Type = 1
'最終バイナリストリーム
binStream.Open
binStream.Type = 1
'テキストストリーム
stream.Open
stream.Charset = "shift_jis"
'ここからーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
set fso = createObject("Scripting.FileSystemObject")
set folder = fso.getFolder(filePath)
for each file in folder.files
t = filePathto & "\" & file.name
fileplace = filePath & "\" & file.name
stream.WriteText "--" & strBoundary & vbCrLf
stream.WriteText "--" & strBoundary & vbCrLf
stream.WriteText "Content-Disposition: form-data; name=""files""; filename=" & file.name & vbCrLf
stream.WriteText "Content-Type: application/pdf" & vbCrLf
stream.WriteText vbCrLf
stream.Position = 0
stream.CopyTo workBinStream
workBinStream.Position = 0
binStream.Write workBinStream.Read(workBinStream.Size)
workBinStream.LoadFromFile fileplace
binStream.Write workBinStream.Read(workBinStream.Size)
workBinStream.Close
workBinStream.Open
workBinStream.Type = 1
stream.Close
stream.Open
stream.Charset = "shift_jis"
stream.WriteText vbCrLf & "--" & strBoundary & "--" & vbCrLf
stream.Position = 0
'処理済ファイル移動
fso.MoveFile fileplace, t
Next
'ここまでーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
'送信データを取得
sLen = binStream.Size
binStream.Position = 0
strData = binStream.Read(sLen)
stream.Close
binStream.Close
workBinStream.Close
oHTTP.send(strData)
SetUMSVariable responseText, oHTTP.responseText
SetUMSVariable status, oHTTP.status
Set oHTTP = Nothing