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
aarony@redwingsoftware.com
ajyoung@pressenter.com

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