' sdRoot = Der Pfad zur SD-Karte oder der Pfade aus dem FileDialog
ToastMessageShow("Backup wird zum Teilen vorbereitet...",True)
Dim r As Reflector
Dim f As Object
f = r.CreateObject2("java.io.File", Array As Object(sdRoot & "/Backup.zip"), Array As String("java.lang.String"))
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("*/*")
share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "fromFile", _
Array As Object(f), Array As String("java.io.File")))
share.WrapAsIntentChooser("Teilen/Share Backup (ZIP) mit")
StartActivity(share)