Sub lvFiles_ItemClick (Position As Int, Value As Object)
Dim cT, cExt, cDir As String
Dim inttFile As Intent
'
cDir = globales.cDBpath
'
cT = Value
cExt = cT.ToLowerCase.SubString( cT.LastIndexOf(".") )
'
inttFile.Initialize(inttFile.ACTION_VIEW, "file://" & File.Combine(cDir,cT))
'
If (cExt.CompareTo(".jpg")=0) OR (cExt.CompareTo(".png")=0) OR (cExt.CompareTo(".bmp")=0) Then
inttFile.SetType("image/*")
Else If cExt.CompareTo(".pdf")=0 Then
inttFile.SetType("application/pdf")
Else If cExt.CompareTo(".txt")=0 Then
inttFile.SetType("text/plain")
Else If (cExt.CompareTo(".htm")=0) OR (cExt.CompareTo(".html")=0) Then
inttFile.SetType("text/html")
else
inttFile.SetType(" ??? ") ' <--- ???
End If
'
StartActivity( inttFile )
End Sub