' 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 Long
 
End 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.' 
 
 
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