Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Dim i As Intent
Dim uri As String
Dim PastaDisp As String
ToastMessageShow("Donwload ok!", False)
If File.Exist(File.DirRootExternal,"Temp")=False Then File.MakeDir(File.DirRootExternal,"Temp")
File.Copy(File.DirInternal,PastaDisp ,File.DirRootExternal & "\Temp",PastaDisp)
PastaDisp = File.DirRootExternal & "\Temp"
uri = "file://" & File.Combine(PastaDisp, "NSCommander.apk")
i.Initialize(i.ACTION_VIEW, uri)
i.SetType("application/vnd.android.package-archive")
StartActivity(i)
End Sub