Dim url_Up As String = "http://www.ziel.eu/rx.php"
Dim files As List
Dim fd As FileData
Dim NV As Map
files.Initialize
fd.Initialize
NV.Initialize
fd.Dir = Up_Phat
fd.FileName = Up_File
fd.KeyName = "filename"
fd.ContentType = "application/octet-stream"
files.Add(fd)
Dim req As OkHttpRequest
req = MultipartPost.CreatePostRequest(url_Up, NV, files)
hc.Execute(req, 1)