Private Sub SendVia_Click
'Sendet das aktuelle Spiel
'zuerst das Spiel speichern
Dim lSpielstand As String=Spielstand_speichern
Dim lSerial As Serial
lSerial.Initialize("mySerial")
Dim lFileName As String= lSerial.Name & "_Patience.dat"
Dim lTW As TextWriter
lTW.Initialize(File.OpenOutput(rp.GetSafeDirDefaultExternal("") , lFileName, False))
lTW.WriteLine(lSpielstand)
lTW.Close
Dim lUri As Uri 'ContentResolver library
lUri.Parse("file://" & File.Combine(rp.GetSafeDirDefaultExternal(""),lFileName))
Dim lIntent As Intent
lIntent.Initialize(lIntent.ACTION_SEND, "file://" & File.combine(rp.GetSafeDirDefaultExternal(""),lFileName))
lIntent.PutExtra("android.intent.extra.STREAM",lUri)
lIntent.SetType("text/*")
Log(File.Exists(rp.GetSafeDirDefaultExternal(""),lFileName))
StartActivity(lIntent)
End Sub