Sub btnOpenFile_Click
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE Then
OpenMyFile
End If
End Sub
Sub OpenMyFile
Msgbox2Async("Do you want to continue?", "Import file", "Yes", "", "Cancel", Null, True)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
Dim dlgFileExpl As ClsExplorer
(...)
End Sub
End Sub