Sub btnHelp_Click
Dim I1 As Intent
'a folder created by the app, where the .sqlite db is also stored.
Dim DBFolder As String = "sdcard/data/invscan/db"
Dim PDF_Filename As String = "invscanhelp.pdf"
Dim FullFilename As String = File.Combine(DBFolder, PDF_Filename)
'Log(FullFilename)
'copy Assets PDF file to DBFolder
If File.Exists(File.DirAssets,PDF_Filename) = True Then
If File.Exists(DBFolder,PDF_Filename) = False Then
File.Copy(File.DirAssets,PDF_Filename,DBFolder,PDF_Filename)
End If
End If
If File.Exists(DBFolder,PDF_Filename) = True Then
I1.Initialize(I1.ACTION_VIEW, "file://" & FullFilename)
'I1.Initialize(I1.ACTION_VIEW, File.Combine(DBFolder & "/", PDF_Filename))
I1.SetComponent("android/com.android.internal.app.ResolverActivity")
I1.SetType("application/pdf")
I1.WrapAsIntentChooser("Choose PDF Viewer")
StartActivity(I1)
Else
ToastMessageShow("Unable to find PDF (" & FullFilename & ")",False)
End If
End Sub