Sub SendFile(Dir As String, FileName As String)
Dim In As Intent
In.Initialize(In.ACTION_SEND,"file://" & File.Combine(Dir, FileName))
In.SetType("*/*")
StartActivity(In)
End Sub
The use will be able to choose Bluetooth from the list.
Sub SendFile(Dir As String, FileName As String)
Dim In As Intent
In.Initialize(In.ACTION_SEND,"file://" & File.Combine(Dir, FileName))
In.SetType("*/*")
StartActivity(In)
End Sub
The use will be able to choose Bluetooth from the list.
When I try this and i click on email the path it in the "To" line and nothing is in attachments.
Dropbox and other apps are crashing as well. Do i have to set the file path into an extra? The code is the same as above....
Please help me
Regards
Update: Filemanager manages to send the file. So the problem is not the file
Dim In As Intent
In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "So Market/So-Market.apk"))
In.SetType("application/vnd.android.package-archive")
Dim u As Uri 'ContentResolver library
u.Parse("file://" & File.Combine(File.DirRootExternal, "test.txt"))
In.PutExtra("android.intent.extra.STREAM", u)