Mostrar ventana propiedades de un archivo

Con este código se puede mostrar la ventana de propiedades que sale en el explorador de Windows, al pulsar botón derecho sobre un archivo y seleccionar propiedades.

En un módulo (.BAS) ponemos:

Public Type SHELLEXECUTEINFO
     cbSize As Long
     fMask As Long
     hWnd As Long
     lpVerb As String
     lpFile As String
     lpParameters As String
     lpDirectory As String
     nShow As Long
     hInstApp As Long
     lpIDList As Long
     lpClass As String
     hkeyClass As Long
     dwHotKey As Long
     hIcon As Long
     hProcess As Long
End Type

Declare Function ShellExecuteEx Lib "shell32" (lpSEI As SHELLEXECUTEINFO) As Long
Const SEE_MASK_INVOKEIDLIST = &HC

Public Sub ShowFileProperties(ByVal aFile As String)
     Dim sei As SHELLEXECUTEINFO
     sei.hWnd = Me.hWnd
     sei.lpVerb = "properties"
     sei.lpFile = aFile
     sei.fMask = SEE_MASK_INVOKEIDLIST
     sei.cbSize = Len(sei)
     ShellExecuteEx sei
End Sub

Y donde queramos mostrar la ventana de propiedad llamamos al método:

ShowFileProperties("c:windowssystemmsvbvm50.dll")

Esto es un ejemplo hay que poner el path del fichero que queramos mostrar las propiedades.

Publicado en es.comp.lenguajes.visual-basic por El Cid

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s