Dim i As Intent
If File.Exists(File.DirDefaultExternal,"help0.pdf")=False Then
File.Copy(File.DirAssets,"help0.pdf",File.DirDefaultExternal,"help0.pdf") 'file name in lowercase
End If
i.Initialize(i.ACTION_VIEW, "file://" & File.DirDefaultExternal & "/help0.pdf")
i.SetType("application/pdf")
StartActivity(i)