Italian Leggere file.pdf

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    
    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
    Wait For Activity_PermissionResult (Permission As String, result As Boolean)
    
        If result Then
        File.Copy(File.DirAssets, "esempio.pdf", File.DirRootExternal, "esempio.pdf")
        Dim i As Intent
        Dim FileName As String
        FileName = File.Combine(File.DirRootExternal, "esempio.pdf")
        i.Initialize(i.ACTION_VIEW, FileName )
        i.SetComponent("android/com.android.internal.app.ResolverActivity")
        i.SetType("application/pdf")
        i.WrapAsIntentChooser("Choose PDF Viewer")
        StartActivity(i)
        
            End If
    
        
    
End Sub

Public Sub SharePDF(FileName As String)
    File.Copy(File.DirAssets, FileName, shared, FileName)
    Dim i As Intent 'Requires a reference to the Phone library
    i.Initialize(i.ACTION_VIEW, CreateFileProviderUri(shared, FileName))
    i.SetType("application/pdf")
    i.Flags = 1
    i.WrapAsIntentChooser("Choose PDF Viewer")
    StartActivity(i)
End Sub

Sub OpenPDF
        Dim OpenPDF As clsSendMail
        OpenPDF.Initialize
        OpenPDF.SharePDF("esempio.pdf")
End Sub