File Properties

[Option Explicit]

When a Word document's (*.doc) icon is right clicked upon (in Windows Explorer for example) multiple tabs apear (not just the general tab). How is this done?

[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]

[Option Explicit]

Obtaining the properties of a file is not a probelm. What I would like to know is: How to manipulate a file so that an additional tab is placed on the property dialog of said file. (i.e. like a ms word doc.)

[This message has been edited by Option Explicit (edited 02-02-2000).]