Android Question Get the Path from assosiated File

    Log(In)
    Log(In.ExtrasToString)
    If In.Action = "android.intent.action.VIEW" Then
        Dim Params As String = In.GetData
        Log(Params)
        Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
        Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
        If Result Then
            Dim content As List = File.ReadList("ContentDir",Params)
            If content <> Null And content.IsInitialized And content.Size>0 Then
                Log(content.Size)
                Log(content)
            End If
        End If
    End If

*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
(Intent) Intent { act=android.intent.action.MAIN cat=[android.intent.category.LAUNCHER] flg=0x10000000 cmp=b4a.example3/.main }
no extras
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = true **
** Activity (main) Create, isFirst = false **
(Intent) Intent { act=android.intent.action.VIEW dat=file:///storage/4AFA-61CB/conf.dpn typ= flg=0x10000000 cmp=b4a.example3/.main }
no extras
file:///storage/4AFA-61CB/conf.dpn
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
sending message to waiting queue (activity_permissionresult)
running waiting messages (1)
1
(ArrayList) [testtext :-)]
** Activity (main) Resume **

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
 
    '**************************************
    Dim In As Intent = Activity.GetStartingIntent
    Dim Parametri As String = In.GetData
    If Parametri<>Null Then
        ' Apertura parametri
    Log("Parametri = " & Parametri)
        Activity.LoadLayout("print")
        'LabelInfo.Text="Print file: " & Parametri
    '*****************************************************
       Else
        Log("Apertura App")
    Activity.LoadLayout("main")
    End If
End Sub