#Region  Activity Attributes 

Sub Process_Globals
	Public images As List = Array("18.txt", "28.txt", "38.txt")
End Sub

Sub Globals
	Private savTxt As Button
	Private goin As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("chs")
End Sub
	
Sub savTxt_Click
	Log(" start savTxt")
	'**  Makes available Email client and Save to Drive only
	Dim e As Email
	e.To.Add(goin.text)
	e.Subject = "bkup 9-2-18"
	e.Body = "test"
	e.Attachments.Add(CreateFileProviderUri(Starter.shared, "18.txt"))
	e.Attachments.Add(CreateFileProviderUri(Starter.shared, "28.txt"))
	e.Attachments.Add(CreateFileProviderUri(Starter.shared, "38.txt"))
	StartActivity(e.GetIntent)
End Sub

Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
	Log("start CreateFileProviderUri")
	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