Public Sub GetMime(Path As String) As String
Dim FileMime As String
Shell "file --mime-type " & Shell$(path) To FileMime
Return Trim(Replace(FileMime, Path & ":", ""))
End
Public Sub GetIconFromMime(Mime as string) as Picture
Return Stock["16/mimetypes/" & Replace(Mime, "/","-")]
End
Public Sub Main()
Dim sMimePic as Picture
smimePic=GetIconFromMime(GetMime(User.Home&/"video.ogg"))
End
Dim FileMime As String
Shell "file --mime-type " & Shell$(path) To FileMime
Return Trim(Replace(FileMime, Path & ":", ""))
End
Public Sub GetIconFromMime(Mime as string) as Picture
Return Stock["16/mimetypes/" & Replace(Mime, "/","-")]
End
Public Sub Main()
Dim sMimePic as Picture
smimePic=GetIconFromMime(GetMime(User.Home&/"video.ogg"))
End
Esto debería funcionar. Si hablas de las imágenes asociadas a un archivo, obra del un gestor de ficheros... Pues ni idea. Lo que sí sé, es que en Ubuntu, por ejemplo, se definen los "roles" de cada directorio en un archivo. En Nautilus, claro.
Suerte.