Dim nom_file As String
nom_file = lastDir & Value 'path to server file
'tmpdir = File.DirRootExternal & "/UsiManual/" ' File.DirInternalCache
'tmpdir = File.DirInternalCache & "/UsiManual/" ' File.DirInternalCache
ret = File.Exists(tmpdir,Value)
If ret = False Then usismb.DownloadFile(lastDir,Value,tmpdir,Value)
''Msgbox(nom_file,"nom fichier")
nom_file = "file:///" & tmpdir & Value
Dim zz As Intent 'Requires a reference to the Phone library
zz.Initialize(zz.ACTION_VIEW, nom_file)
zz.SetType("application/pdf")
'zz.WrapAsIntentChooser("Choose PDF Viewer")
StartActivity(zz)