Public Function ShowProps(FileName As String, _

   OwnerhWnd As Long) As Boolean

 

‘USAGE:

‘To show the properties dialog box of “c:\autoexec.bat”, use the following code:

‘Call ShowProps(”c:\autoexec.bat”, Me.hwnd)

‘Function will return false if

‘property windows can’t be shown for

‘any reason (e.g., invalid file or Ownerhwnd)

 

 

    On Error Resume Next

    Dim SEI As SHELLEXECUTEINFO

    Dim r As Long

    With SEI

        .cbSize = Len(SEI)

        .fMask = SEE_MASK_NOCLOSEPROCESS Or _

         SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI

        .hwnd = OwnerhWnd

        .lpVerb = “properties”

        .lpFile = FileName

        .lpParameters = vbNullChar

        .lpDirectory = vbNullChar

        .nShow = 0

        .hInstApp = 0

        .lpIDList = 0

    End With

    r = ShellExecuteEX(SEI)

    ShowProps = r

End Function