Sub GetFileInfo(aURI As String) As Map
Dim oCur As Cursor
Dim oURI As Uri
Dim oCR As ContentResolver
Dim mRes As Map
Dim arrInfo() As String = Array As String("_display_name", "mime_type")
oURI.Parse(aURI)
oCR.Initialize("")
oCur= oCR.Query(oURI, arrInfo, Null, Null, Null)
oCur.Position = 0
mRes.Initialize
Try
mRes.put("display_name", oCur.GetString("_display_name"))
Catch
mRes.put("display_name", "")
End Try
Try
mRes.put("mime_type",oCur.GetString("mime_type"))
Catch
mRes.put("mime_type","")
End Try
Log(mRes)
oCur.Close
Return mRes
End Sub