MsgBox ("Compañia: " & GetCompanyName("ruta") & Chr(13) + Chr(10) & _ "Descripcion de archivo: " & GetFileDescription("ruta") & _
GetLegalCopyright("ruta") & Chr(13) + Chr(10) & _
"Nombre del producto" & GetProductName("ruta") & Chr(13) + Chr(10) & _ "Version de archivo: " & GetFileVersion("ruta") & Chr(13) + Chr(10) & _
"Version del producto: " & GetProductVersion("ruta") & _
Chr(13) + Chr(10) & "Nombre interno: " & GetInternalName("ruta") & _
Chr(13) + Chr(10) & "Nombre original: " & GetOriginalFilename("ruta"))
Espero te sirva...
