Private Sub SendInstallIntent
For Each ApkName As String In File.ListFiles(File.DirAssets)
If ApkName.EndsWith(".apk") Then
File.copy(File.DirAssets, ApkName, Starter.SharedFolder, ApkName)
Dim i As Intent
If phone.SdkVersion >= 24 Then
i.Initialize("android.intent.action.INSTALL_PACKAGE", CreateFileProviderUri(Starter.SharedFolder, ApkName))
i.Flags = Bit.Or(i.Flags, 1) 'FLAG_GRANT_READ_URI_PERMISSION
Else
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(Starter.SharedFolder, ApkName))
i.SetType("application/vnd.android.package-archive")
End If
StartActivity(i)
End If
Next
End Sub