Sub PushFile(Dir,FName)
Dim mj As HttpJob
Dim url As String = "http://myurl.com/uploads.php?filename=" & FName
mj.Initialize("upl", Me)
mj.Tag = filename
mj.PostFile(url,Dir,FName)
End Sub
Sub JobDone(Job as HttpJob)
If Job.Success Then
Select Job.JobName
Case "upl"
Dim jt As String = Job.tag
Log("upload complete for: " & jt)
End Select
End If
Job.Release
End Sub