Sub lvNovels_ItemClick (Index As Int, Value As Object)
Dim PDF As String
PDF = Value
File.Copy(File.DirRootExternal, "/Books/" & PDF & ".pdf",File.DirInternal, "testbook.pdf" )
CacheDir = File.Combine(File.DirInternalCache, "images")
File.MakeDir("", CacheDir)
OpenFilePDF(File.Combine(File.DirInternal, "testbook.pdf"))
End Sub