Dim job_22 As HttpJob
job_22.Initialize("job_22",Me)
Dim apkurl As String = "http://myserver.com/appname.apk"
job_22.Download(apkurl)
Wait for JobDone (job_22 As HttpJob)
If job_22.Success = True Then
'delete if exists
If File.Exists(File.DirRootExternal,"appname.apk") = True Then
File.Delete(File.DirRootExternal,"appname.apk")
End If
'save to dir.
Dim out22 As OutputStream = File.OpenOutput(File.DirRootExternal,"appname.apk", False)
File.Copy2(job_22.GetInputStream, out22)
out22.Close
End If
job_22.Release