Sub FinishUpdate
'--- aggiorna la versione dell'app
If DownloadService.DoneSuccessfully = True Then
DownloadService.JobStatus = DownloadService.STATUS_NONE
ProgressDialogHide
If File.Exists(File.DirRootExternal,"orario.apk") Then
'--- installo
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal, "orario.apk"))
i.SetType("application/vnd.android.package-archive")
StartActivity(i)
Else
Msgbox ("ERROR dowload orario.apk","ERROR")
End If
End If
End Sub