Envoi d'images par http

Bonjour tout le monde, j'ai un énooorme problème qui me prend la tete depuis hier: voilà, j'ai un bout de code sensé envoyer un XML et de 0 à 3 images vers une page php. Le problème c'est que ma page php ne réceptionne que le xml, aucune trace des images dans $_FILES.

Quelqu'un pourrait il examiner mon code vb et me dire si quelque chose cloche ?

Merci d'avance ;)

Public Sub SendToServer() Dim strText As String Dim strImage1 As String Dim strImage2 As String Dim strImage3 As String Dim s$ Dim strBody As String Dim aPostData() As Byte Dim strFileName1 As String Dim strFileName2 As String Dim strFileName3 As String Dim strFileName4 As String Dim oHttp As XMLHTTP Dim nFile As Integer 'make use of the XMLHTTPRequest object contained in msxml.dll Set oHttp = New XMLHTTP 'read the whole text file strFileName1 = App.Path & "\temp\" & CStr(intIdAuctionLocal) & ".xml" nFile = FreeFile Open strFileName1 For Binary As #nFile strText = String(LOF(nFile), " ") Get #nFile, , strText Close #nFile 'on lit la 1ère image si nécessaire If strImg1 <> "" Then strFileName2 = App.Path & "\userpics\" & strImg1 nFile = FreeFile Open strFileName2 For Binary As #nFile strImage1 = String(LOF(nFile), " ") Get #nFile, , strImage1 Close #nFile End If 'on lit la 2ème image si nécessaire If strImg2 <> "" Then strFileName3 = App.Path & "\userpics\" & strImg2 nFile = FreeFile Open strFileName3 For Binary As #nFile strImage2 = String(LOF(nFile), " ") Get #nFile, , strImage2 Close #nFile End If 'on lit la 3ème image si nécessaire If strImg3 <> "" Then strFileName4 = App.Path & "\userpics\" & strImg3 nFile = FreeFile Open strFileName4 For Binary As #nFile strImage3 = String(LOF(nFile), " ") Get #nFile, , strImage3 Close #nFile End If 'fire of an http request oHttp.open "POST", "http://www.monsite.com/dossier1/catch_xml.php?login=" & frmSendItems.txtLogin.Text & "&password=" & frmSendItems.txtPassword.Text, False oHttp.setRequestHeader "Content-Type", "multipart/form-data, boundary=AaB03x" 'assemblage strBody = _ "--AaB03x" & vbCrLf & _ "Content-Disposition: form-data; name=""item""" & vbCrLf & vbCrLf & _ "test item" & vbCrLf & _ "--AaB03x" & vbCrLf & _ "Content-Disposition: attachment; name=""XML""; filename=""" & strFileName1 & """" & vbCrLf & _ "Content-Type: text/plain" & vbCrLf & vbCrLf & _ strText & vbCrLf If strImg1 <> "" Then strBody = strBody & _ "--AaB03x" & vbCrLf & _ "Content-Disposition: attachment; name=""IMG1""; filename=""" & strFileName2 & """" & vbCrLf & _ "Content-Transfer-Encoding: binary" & vbCrLf & _ "Content-Type: image/jpeg" & vbCrLf & vbCrLf & _ strImage1 & vbCrLf MsgBox strBody End If If strImg2 <> "" Then strBody = strBody & _ "--AaB03x" & vbCrLf & _ "Content-Disposition: attachment; name=""IMG2""; filename=""" & strFileName3 & """" & vbCrLf & _ "Content-Transfer-Encoding: binary" & vbCrLf & _ "Content-Type: image" & vbCrLf & vbCrLf & _ strImage2 & vbCrLf End If If strImg3 <> "" Then strBody = strBody & _ "--AaB03x" & vbCrLf & _ "Content-Disposition: attachment; name=""IMG3""; filename=""" & strFileName4 & """" & vbCrLf & _ "Content-Transfer-Encoding: binary" & vbCrLf & _ "Content-Type: image" & vbCrLf & vbCrLf & _ strImage3 & vbCrLf End If strBody = strBody & _ "--AaB03x--" 'must convert to byte array because of binary zeros aPostData = StrConv(strBody, vbFromUnicode) 'send it oHttp.send aPostData 'check the feedback Debug.Print oHttp.responseText End Sub