Dim Intent1 As Intent
Uri="file://"&File.Combine(File.Combine(File.DirRootExternal," cpbackups"),"file.zip")
Intent1.Initialize(Intent1.ACTION_SEND,"")
Intent1.PutExtra("android.intent.extra.SUBJECT","file.zip")
Intent1.PutExtra("android.intent.extra.STREAM",Uri )
Intent1.SetType("application/zip")
Intent1.PutExtra("android.intent.extra.TEXT","Message Text")
StartActivity(Intent1)