'implicit intent
If File.Exists(File.DirRootExternal, "nophoto.txt") Then File.Delete(File.DirRootExternal, "nophoto.txt")
File.Copy(File.DirAssets, "nophoto.txt",File.DirRootExternal,"nophoto.txt")
Try
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal, "nophoto.txt"))
i.SetType("text/plain")
StartActivity(i)
Catch
ToastMessageShow("No matching application.", True)
Log(LastException)
End Try