sHeader =
"Content-Type: multipart/form-data, boundary=AaB03x"
& vbCrLf
bRet = HttpAddRequestHeaders(hHttpOpenRequest, sHeader, Len(sHeader), _
HTTP_ADDREQ_FLAG_REPLACE
Or
HTTP_ADDREQ_FLAG_ADD)
nFile = FreeFile
Open file
For
Binary
As
#nFile
sPostData =
String
(LOF(nFile),
" "
)
Get
#nFile, , sPostData
Close #nFile
sPostData = _
"--AaB03x"
& vbCrLf & _
"Content-Disposition: form-data; name="
"datei"
"; filename="
""
& file &
""
""
& vbCrLf & _
"Content-Transfer-Encoding: binary"
& vbCrLf & _
"Content-Type: application/octet-stream"
& vbCrLf & vbCrLf & _
sPostData & vbCrLf