Dim Upload As HttpJob
Upload.Initialize("FileUpload",Me)
Upload.Tag = "FileUpload"
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "file"
fd.Dir = File.DirAssets
fd.FileName = "se.jpg"
fd.ContentType = "image/jpeg"
Dim flist As List
flist.Initialize
flist.Add(fd)
Dim NameValues As Map
NameValues.Initialize
NameValues.Put("uploadType","multipart")
NameValues.Put("convert",False)
NameValues.Put("ocr",True)
NameValues.Put("pinned",False)
NameValues.Put("ocrLanguage","de")
NameValues.Put("timedTextLanguage","de")
NameValues.Put("timedTextTrackName","de")
Upload.PostMultipart(DriveUploadLink,NameValues,flist)