Sub Send
ProgressDialogShow("Send to ...")
Dim Dir, Filename As String
Dir=File.DirDefaultExternal
Filename="filename.zip"
If File.Exists(Dir, Filename) Then
Dim In As Intent
Dim U As Uri
U.Parse("file://" & File.Combine(Dir, Filename))
In.Initialize(In.ACTION_SEND, "")
In.SetType("text/plain")
In.PutExtra("android.intent.extra.STREAM", U)
StartActivity(In)
Else
ToastMessageShow("File send error",False)
End If
ProgressDialogHide
End Sub