Public Sub PostFile(Link As String, Dir As String, FileName As String)
Dim length As Int
If Dir = File.DirAssets Then
Log("Cannot send files from the assets folder.")
Return
End If
length = File.Size(Dir, FileName)
Dim In As InputStream = File.OpenInput(Dir, FileName)
cin.Initialize(In)
req.InitializePost(Link, cin, length)
CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub