Private Sub chooser_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
ProcessFileInfo(FileName, Dir, FileName)
Else
Log("File selection was cancelled or failed.")
End If
End Sub
Sub ProcessFileInfo(uri As String, Dir As String, FileName As String)
Dim mime As String = GetFileInfoByIndex("mime_type", uri)
Dim fname As String = GetFileInfoByIndex("_display_name", uri)
Dim size As String = GetFileInfoByIndex("_size", uri)
Dim fileExtension As String = fname.SubString(fname.LastIndexOf(".") + 1).ToLowerCase
Log(mime & " " & fname & " " & size & " " & fileExtension)
If mime.ToLowerCase.Contains("video") Then
Log("video")
ePlayer.Prepare(ePlayer.CreateFileSource(Dir,FileName))
ColVideoPlayer1.Player=ePlayer
ePlayer.Play
End If
.
.
.