File per Post an Server mit AxSHDocVw.AxWebBrowser

[Michael p. Schumacher]

Hallo zusammen,

möche eine Datei (c:\test.zip || test.txt) an eine Upload-Seite im Internet senden. Dazu benutze ich einfach die Navigate() (s.U.).

Wie kann ich jetzt statt einzelner Parameter ganze Files mitübergeben?

Lg
Micha

<PRE>
Dim url As String = txt_url.Text
Dim PostData() As Byte 'Funktioniert nich
Dim myFile As File
Dim TargetFrame As String
Dim Headers As String
Dim Flags As Long

Flags = 0
TargetFrame = ""

PostData = ASCIIEncoding.ASCII.GetBytes("pop=true") 'StrConv("pop=true", VbStrConv)
Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf

AxWebBrowser1.Navigate(url, Flags, TargetFrame, PostData, Headers)
</PRE>