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)