Imports System.Management
Imports WSH = IWshRuntimeLibrary
 
Public Class DeineForm
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
#End Region
 
   'für Ordner-Eigenschaften Dialogfeld
Private Structure SHELLEXECUTEINFO
        Dim cbSize As Integer
        Dim fMask As Integer
        Dim hwnd As Integer
        Dim lpVerb As String
        Dim lpFile As String
        Dim lpParameters As String
        Dim lpDirectory As String
        Dim nShow As Integer
        Dim hInstApp As Integer
        Dim lpIDList As Integer
        Dim lpClass As String
        Dim hkeyClass As Integer
        Dim dwHotKey As Integer
        Dim hIcon As Integer
        Dim hProcess As Integer
    End Structure
    'für Ordner-Eigenschaften:
    Private Declare Function GetDesktopWindow Lib "user32" () As Integer
    Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef SEI As _
      SHELLEXECUTEINFO) As Integer
 
    Private Const SEE_MASK_FLAG_NO_UI As Short = &H400S
    Private Const SEE_MASK_INVOKEIDLIST As Short = &HCS
    Private Const SEE_MASK_NOCLOSEPROCESS As Short = &H40S
 
    Public Enum sfpErrorCodes
        sfpErrFileNotFound = 2
        sfpErrPathNotFound = 3
        sfpErrAccessDenied = 5
        sfpErrOutOfMemory = 8
    End Enum
 
    'Funktion Dateieigenschaften
    Public Sub ShellFileProperties(ByRef FileName As String, Optional ByVal _
      OwnerhWnd As Integer = 0)
        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
        If ShellExecuteEx(nSEI) = 0 Then
            Err.Raise(Err.LastDllError, "ShowProps")
        End If
    End Sub