Code Error - Still at work and need help!
 

I'm trying to get this to work with a CSV file and for some reason it
doesn't work? Can anyone help? Heres the code:

Private Function CreateFormData(ByRef Fields As Variant, ByVal
FormDataDelimiter As String, ParamArray Values() As Variant)
Dim FormData As String
FormData = FormDataDelimiter & vbCrLf

For i = 0 To UBound(Fields)
FormData = FormData & "Content-Disposition: form-data; name="""
& Fields(i) & """" & vbCrLf & vbCrLf & Values(i) & vbCrLf &
FormDataDelimiter & vbCrLf
Next i

CreateFormData = FormData
End Function


--
alexm999
------------------------------------------------------------------------
alexm999's Profile: http://www.excelforum.com/member.php...fo&userid=4918
View this thread: http://www.excelforum.com/showthread...hreadid=564498

Code Error - Still at work and need help!
 

http://www.cpearson.com/excel/newposte.htm
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"alexm999"
wrote in message...
I'm trying to get this to work with a CSV file and for some reason it
doesn't work? Can anyone help? Heres the code:

Private Function CreateFormData(ByRef Fields As Variant, ByVal
FormDataDelimiter As String, ParamArray Values() As Variant)
Dim FormData As String
FormData = FormDataDelimiter & vbCrLf

For i = 0 To UBound(Fields)
FormData = FormData & "Content-Disposition: form-data; name="""
& Fields(i) & """" & vbCrLf & vbCrLf & Values(i) & vbCrLf &
FormDataDelimiter & vbCrLf
Next i

CreateFormData = FormData
End Function
--
alexm999