File Properties

[Aaron Young]

To show a Files, File Properties Dialog, use this:

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.dll" (lpExecInfo As Any) As Long

Private Const SEE_MASK_INVOKEIDLIST = &HC

Private Sub Command1_Click()
    Dim tSHELL As SHELLEXECUTEINFO
    With tSHELL
        .lpFile = "C:\TheFile.txt"
        .lpVerb = "properties"
        .fMask = SEE_MASK_INVOKEIDLIST
        .cbSize = Len(tSHELL)
    End With
    Call ShellExecuteEx(tSHELL)
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]