' Notwendige API-Deklarationen:  Private Const SEE_MASK_INVOKEIDLIST As Long = 
' &HC&Private Const SW_SHOW               As Long = 5&  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 LongEnd Type  
' Private Declare Function ShellExecuteEx _  Lib "shell32.dll" ( _  ByRef SEI 
' As SHELLEXECUTEINFO _  ) As Long    Public Function ShowFilePropertiesDialog( 
' _  ByVal FileOrDirectory As String, _  Optional ByVal hwndParent As Long) As 
' Boolean' -----------------------------------------------------' Zeigt den 
' Explorer-Dialog für Datei- oder' Verzeichniseigenschaften an.'' _
FileOrDirectory: Pfad zur Datei oder zum Verzeichnis,'                  für das 
' der Dialog angezeigt werden'                  soll. UNC-Netzwerkpfade werden' 
'                  unterstützt.' hwndParent:      Optional. Fensterhandle einer _
Form,'                  zu der auszugebene Fehlermeldungen'                  _
modal wirken sollen. Wird dieser'                  parameter nicht übergeben, 
' werden'                  Fehlermeldungen nichtmodal darge-'                  
' stellt.' Rückgabewert:    True bei erfolgreicher Anzeige des'                 
'  Dialogs, False bei Fehlern.' _
-----------------------------------------------------Dim SEI As _
SHELLEXECUTEINFO    ' SHELLEXECUTEINFO-Struktur mit den notwendigen  ' Werten _
belegen:  With SEI    .cbSize = Len(SEI)    .hwnd = hwndParent    .nShow = _
SW_SHOW    .fMask = SEE_MASK_INVOKEIDLIST    .lpVerb = "Properties"    .lpFile _
= FileOrDirectory  End With    ' Mittels ShellExecuteEx den Dialog anzeigen:  
' ShellExecuteEx SEI    ' War der Aufruf erfolgreich, ist der Parameter  ' 
' hInstApp der SHELLEXECUTEINFO-Struktur größer  ' als 32:  _
ShowFilePropertiesDialog = (SEI.hInstApp > 32)  End Function