Code:
Public Enum SHOP_Flags
SHOP_PRINTERNAME = &H1 'pszObjectName points to a printer friendly name
SHOP_FILEPATH = &H2 'pszObjectName points to a fully qualified path+file name
SHOP_VOLUMEGUID = &H4 'pszObjectName points to a Volume GUID
End Enum
Public Declare Function SHObjectProperties Lib "shell32.dll" (ByVal hWnd As Long, ByVal shopObjectType As SHOP_Flags, ByVal pszObjectName As Long, ByVal pszPropertyPage As Long) As Long
Public Function GetObjectProperties(ByVal hwndOwner As Long, ByVal ShowFlags As SHOP_Flags, ByVal sNameOrPath As String) As Boolean
GetObjectProperties = SHObjectProperties(hwndOwner, ShowFlags, StrPtr(sNameOrPath), StrPtr(" "))
End Function
GetObjectProperties Me.hWnd, SHOP_FILEPATH, "c:\windows\explorer.exe"