Sub ShareMultipleFiles(path As String, files As List) 'Path = name of the subfolder, files = list of file names
Dim i As Intent
i.Initialize("android.intent.action.SEND_MULTIPLE", "")
i.SetType("text/plain")
Dim Uris As List
Uris.Initialize
For Each f As String In files
Dim u As Uri
u.Parse("file://" & File.DirDefaultExternal & "/" & path & "/" & f)
Uris.Add(u)
Next
Dim jo As JavaObject = i
jo.RunMethod("putParcelableArrayListExtra", Array As Object("android.intent.extra.STREAM", Uris))
StartActivity(i)
End Sub