sub transfert
File.Copy(File.DirInternal, "myDataBase.db", Starter.shared, "myDataBase.db")
Dim in As Intent
in.Initialize(in.ACTION_SEND, CreateFileProviderUri(Starter.shared, "myDataBase.db"))
in.SetType("*/*")
in.Flags = 1
StartActivity(in)
End Sub
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
Dim FileProvider As JavaObject
Dim context As JavaObject
context.InitializeContext
FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub