Sub Button1_Click
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("video/*", "choose video")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
player.Prepare(player.CreateUriSource(FileName)) 'ExoPlayer
player.Play
End If
End Sub
Sub Button1_Click
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("video/*", "choose video")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
player.Prepare(player.CreateUriSource(FileName)) 'ExoPlayer
player.Play
End If
End Sub
Sub Button1_Click
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("video/*", "choose video")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
player.Prepare(player.CreateUriSource(FileName)) 'ExoPlayer
player.Play
End If
End Sub
Erel, the CC folder needs a subfolder named /Shared Files in addition to /B4A in order to compile. Adding CC/Shared Files is all that's needed. Then it compiles OK and choosing video files works perfectly.