1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Wie kann ich den Dateieigenschaften-Dialog anzeigen lassen? 

Lösung:

Folgenden Code in ein neues Modul kopieren.

Public Declare Function GetDesktopWindow _
    Lib "user32" () As Long
Public Declare Function ShellExecuteEX _
    Lib "shell32.dll" Alias "ShellExecuteEx" ( _
    lpShellExInfo As tShellExInfo) As Long
Public Type tShellExInfo
    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

Public Const SEE_MASK_INVOKEIDLIST = &HC
Public Const SEE_MASK_NOCLOSEPROCESS = &H40
Public Const SEE_MASK_FLAG_NO_UI = &H400

Public Function ShowShellObjectInfo( _
    ByVal sObjName As String, _
    Optional ByVal lngHWnd As Long = 0) As Long
    Dim typShellExInfo As tShellExInfo
    Dim lngRet As Long
    With typShellExInfo
        .cbSize = Len(typShellExInfo)
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _
            SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
        .hwnd = IIf(lngHWnd = 0, GetDesktopWindow, lngHWnd)
        .lpVerb = "properties"
        .lpFile = sObjName
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = 0
        .hInstApp = 0
        .lpIDList = 0
    End With
    lngRet = ShellExecuteEX(typShellExInfo)
    If Not (typShellExInfo.hInstApp > 32) Then
        ShowShellObjectInfo = -1
        Exit Function
    End If
    ShowShellObjectInfo = 0
End Function

Aufruf z.B.:

ShowShellObjectInfo "D:\users\Daten\Vorlagen\Handkassenbeleg.doc"

Ergebnis:


Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool "SmartTools SQL aus Abfragen 3.0"...
1.png2.png1.png2.png4.png1.png6.png
Heute7
Gestern67
Diese Woche560
Dieser Monat1216
Total1212416

  • IP: 34.228.41.66
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

16. Dezember 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...