Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 214 fois - Téléchargée 31 fois
Sub Send_File() Dim XMLfileName As String Dim ZIPfileName As String 'Variables systeme fichier Dim Fso As FileSystemObject Dim FSo2 As FileSystemObject Dim FichierLog_Stream As TextStream Dim LOGfileName As String '########################################################################## 'Lecture du fichier pour stockage Binaire Dim strFileName1 As String Dim nFile As Integer Dim strText As String strFileName1 = "C:\nomfichier.xml" nFile = FreeFile Open strFileName1 For Binary As #nFile strText = String(LOF(nFile), " ") Get #nFile, , strText Close #nFile '########################################################################## 'Préparation des entete et body du formulaire Dim ServerSafeHTTP As XMLHTTP50 Set ServerSafeHTTP = CreateObject("Msxml2.ServerXMLHTTP") ServerSafeHTTP.Open "POST", Const_URL_SERVER_DEST, False Dim StrBody As String StrBody = "" StrBody = StrBody & setBody("Champ1", "voiture") 'Champ Champ1 du formulaire StrBody = StrBody & setBody("Champ2", "modele") 'Champ Champ2 du formulaire StrBody = StrBody & setBodyFile(Right(strFileName1, 3)) 'entete du fichier selon son type StrBody = StrBody & strText & vbCrLf & "--" & Const_BOUNDARY & "--" 'Fin de traitement Dim aPostData() As Byte aPostData = StrConv(StrBody, vbFromUnicode) ServerSafeHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Const_BOUNDARY & vbCrLf ServerSafeHTTP.send aPostData If ServerSafeHTTP.Status = 200 Then msgbox ("Envoi effectué :" & ServerSafeHTTP.responseText) Else msgbox ("Erreur :" & _ ServerSafeHTTP.Status & vbcrlf & ServerSafeHTTP.statusText & vbcrlf & ServerSafeHTTP.responseText) End If End Sub 'Création des Champs du formulaire Function setBody(name, value) Dim body body = "--" & Const_BOUNDARY & vbCrLf body = body & "Content-Disposition: form-data; name=""" & name & """" & vbCrLf & vbCrLf body = body & value & vbCrLf setBody = body End Function 'Création de l'entete UPLOAD du champ fichier du formulaire selon son type Function setBodyFile(extention) Dim body body = "--" & Const_BOUNDARY & vbCrLf body = body & "Content-Disposition: form-data; name=""file""; filename=""ExportCARIFPCH.xml""" & vbCrLf body = body & "Content-Transfer-Encoding: binary" & vbCrLf & vbCrLf Select Case extention Case "zip" body = body & "Content-Type: application/zip" & vbCrLf & vbCrLf Case "xml" body = body & "Content-Type: text/xml" & vbCrLf & vbCrLf Case Else body = body & "Content-Type: text/plain" & vbCrLf & vbCrLf End Select setBodyFile = body End Function
11 mars 2009 à 15:00
merci de m'expliquer c'est quoi le problème
11 mars 2009 à 12:06
merci infiniment
11 mars 2009 à 11:01
Il suffit de faire un formulaire avec les champs textes (Champ1,Champ2) et un champs (file)pour le fichier.
ensuite vous traitez la réception de ces données.
11 mars 2009 à 10:53
11 mars 2009 à 10:36
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.