<font color=green>' benötigte Deklarationen</font>
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" (SEI As _
  SHELLEXECUTEINFO) As Long
 
Private Const SEE_MASK_FLAG_NO_UI = &H400
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
 
Private Sub ShowFileInfo(ByVal Filename As String)
  Dim nSEI As SHELLEXECUTEINFO
 
  With nSEI
    .cbSize = Len(nSEI)
    .fMask = SEE_MASK_FLAG_NO_UI Or SEE_MASK_INVOKEIDLIST Or _
      SEE_MASK_NOCLOSEPROCESS
    .hWnd = OwnerhWnd
    .lpVerb = "properties"
    .lpFile = FileName
  End With
  Call ShellExecuteEx(nSEI)
End Sub