If req.ContentType.Contains("form-data") Then
Dim m As Map = req.GetMultipartData(File.DirApp & "/tempUpload", 2048000)
For i = 0 To m.Size - 1
Dim part As Part = m.Get(m.GetKeyAt(i))
If part.TempFile <> "" Then
Dim fTmpName As String = part.TempFile
Dim fNewName As String = part.SubmittedFilename
'Log(fTmpName)
'Log(fNewName)
File.Copy("", fTmpName, File.DirApp, fNewName)
File.Delete("", fTmpName)
Exit 'i only need one file
Else
Log("not a file")
End If
Next
End If