Spanish Ayuda, enviar base de datos por bluetooth

[kelevra1602]

Que tal a todos, estoy haciendo una aplicación que tiene una base de datos pero esa base de datos quiero enviarla vía bluetooth, por los foros encontré un código que hacia eso pero no lo envía.
mi base de datos la guardo en:

File.DirInternal, "sanantonio.db"

y este es mi codigo para enviar el archivo

Dim In As Intent
In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirInternal, "sanantonio.db"))
Dim u As Uri
u.Parse("file://" & File.Combine(File.DirInternal, "sanantonio.db"))
In.PutExtra("android.intent.extra.STREAM", u)
In.SetType("*/*")
StartActivity(In)

 

[bgsoft]

Hola

Comprueba que esten emparejados y que los dos sean visibles

Yo empleo comunicacion serie para intercambio y me funciona.



Saludos

 

[bgsoft]

Hola

Si tu pregunta quedó resuelta, podrias poner en la cabecera [SOLUCIONADO], asi hacemos mas agil el foro, gracias.

Saludos