Dim FileName As String = "scorerdb.db"
Log(Provider.SharedFolder)
If File.Exists(Main.rp.GetSafeDirDefaultExternal(""), "scorerdb.db") = True Then
File.Copy(Main.rp.GetSafeDirDefaultExternal(""), "scorerdb.db", Provider.SharedFolder, "scorerdb.db")
End If
Dim email As Email
email.To.Add("support@websports.co.za")
email.Subject = "WebScorer DB"
email.Attachments.Add(Provider.GetFileUri(FileName))
Dim in As Intent = email.GetIntent
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)