Display the File Properties Dialog Box

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'#VBIDEUtils#*********************************************** ' * Programmer Name : Waty Thierry ' * Web Site : www.geocities.com/ResearchTriangle/6311/ ' * E-Mail : waty.thierry@usa.net ' * Date : 28/06/99 ' * Time : 13:16 ' ******************************************************** ' * Comments : Showing the Properties dialog box ' * ' * This tip demonstrates how To use the Win32 API To ' * bring up the explorer properties ' * dialog box For a specified file. ' * This API Function has the same effect As Right ' * clicking On a file In Windows 95 And selecting properties. ' ************************************************** Option Explicit 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 Const SEE_MASK_INVOKEIDLIST = &HC Private Const SEE_MASK_NOCLOSEPROCESS = &H40 Private Const SEE_MASK_FLAG_NO_UI = &H400 Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias _ "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long