Spanish Problema al adjuntar un fichero, usando un "intent"

[Androidsaetabis]

Hola

Tengo un problemilla, he buscado por el foro y no encuentro la solucion ,
necesito enviar un fichero, en concreto una base de datos .db por mail , uso este codigo :

Dim i As Intent
Dim sFile As String
Dim sFullPath As String
sFile=ncircuito
sFullPath=File.Combine( File.DirRootExternal&"/regatas/" ,sFile)
attach =  "file://" & sFullPath
i.Initialize(i.ACTION_SEND, "")
i.SetType("*/*")
i.PutExtra("intent.EXTRA_STREAM", attach) 
i.WrapAsIntentChooser("Send")
StartActivity(i)

como podeis ver uso la opcion de "intent" , pero el problema esta que no me añade el fichero, el fichero existe, le he puesto hasta un "if file.exist..." por si acaso no ponia bien el nombre, pero eso no es.

lo he probado con otro soft, un explorador de archivos, al darle a "send" si que me añade el fichero, no se porque no me lo añade
pd: "ncircuito" el por ejemplo "prueba.db"

alguna solucion ?
gracias

 

[Androidsaetabis]

solucionado

Dim i As Intent
Dim sFile As String
Dim sFullPath As String
Dim r As Reflector 
Dim f As Object


sFile=ncircuito
zfile = ncircuito.SubString2(0,(ncircuito.Length-3))&".zip"

comprimir.ABZipfile(File.DirRootExternal&"/regatas/" ,sFile,File.DirRootExternal&"/download/"&zfile)

sFullPath=File.Combine( File.DirRootExternal&"/download/" ,zfile)

Msgbox("tamaño del fichero : "&File.Size(File.DirRootExternal&"/download/",zfile),"tamaño")

f = r.CreateObject2("java.io.File", Array As Object(sFullPath), Array As String("java.lang.String"))

i.Initialize(i.ACTION_SEND, "")
i.SetType("application/zip")
i.PutExtra("android.intent.extra.STREAM",r.RunStaticMethod("android.net.Uri", "fromFile",  Array As Object(f), Array As String("java.io.File")))
'attach) 

i.WrapAsIntentChooser("Send")


StartActivity(i)

 

[Maxofon]

Hola:
Agradeceria tu ayuda
¿Este codigo lo pusiste en un boton?
¿Ocupaste alguna libreria nueva?
¿ncircuito es tu nombre de la base de datos para enviar?

De antemano gracias