now i'm in business
i did the header thing with the webbrowser, works great, don't need a form at all![]()
here's how i built my header for the interested
VB Code:
Const Boundary As String = "---------------------------0123456789012" Dim bFormData() As Byte Dim strHeader As String strHeader = "--" & Boundary & vbCrLf strHeader = strHeader & "Content-Disposition: form-data; name=""manddi_doc""; filename=""" & strFileToSend(0, intSentFileCpt) & """" & vbCrLf strHeader = strHeader & "Content-Type: application/upload" & vbCrLf & vbCrLf strHeader = strHeader & sFormData strHeader = strHeader & vbCrLf & "--" + Boundary + "--" + vbCrLf ReDim bFormData(Len(FormData) - 1) bFormData = StrConv(strHeader, vbFromUnicode) web.Navigate myURL, , , bFormData, "Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf Function GetFile(FileName As String) As String Dim FileContents() As Byte, FileNumber As Integer ReDim FileContents(FileLen(FileName) - 1) FileNumber = FreeFile Open FileName For Binary As FileNumber Get FileNumber, , FileContents Close FileNumber GetFile = StrConv(FileContents, vbUnicode) End Function
woks great !





Reply With Quote