نصب apk در بیسیک فور اندروید

[MR.B4A 252]

درورد به همه

دیدید وقتی از کافه بازار فایل دانلود میکنید و پس از دانلود شروع به نصب میکند؟

من با این کد در اندرویدهای قدیمی این کار رو انجام میدادم:

Sub InstallApk(FileDir As String, FileName As String)
    Dim in As Intent
    in.Initialize(in.ACTION_VIEW, "file://" & File.Combine(FileDir, FileName))
    in.SetType("application/vnd.android.package-archive")
    StartActivity(in)
End Sub

منتها توی اندرویدهای جدید این کد جواب نمیده.

ممنون میشم کسی بلد هست این کد رو برای اندرویدهای جدید ویرایش کنه

اینم ارورش