显示文件属性对话框

显示文件属性对话框


利用ShellExecuteEx API函数可以调出文件的属性对话框。源代码如下：

Private 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

Private Declare Function ShellExecuteEx Lib _

"shell32" (lpSEIAs SHELLEXECUTEINFO) As Long

Private Const SEE_MASK_INVOKEIDLIST = &HC

Private Sub Form_Click()

Call ShowFileProperties( _

"c:\windows\system\msvbvm50.dll")

End Sub

Private 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