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 SubY 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
Posted
jue, sep 9 1999 9:06
by
Maverick