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

You have no rights to post comments

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.png3.png5.png2.png4.png2.png4.png
Heute110
Gestern184
Diese Woche964
Dieser Monat2453
Total1352424

  • IP: 3.235.236.13
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

3
Online

15. Mai 2021

Letzte Kommentare

  • Berechnen von Zeiträumen als Abfragekriterium

    elmard 02.02.2021 21:02
    1000 Dank
    für diese Datenbankanwendung! Eine sehr gute Umsetzung mit den vielen Möglichkeiten des Datums.

    Weiterlesen...

     
  • SQL zu VBA Konverter

    Tommy Admin 03.11.2019 16:33
    RE: SQL zu VBA Konverter
    Hallo Elmard, danke für die Info. :lol:

    Weiterlesen...

     
  • SQL zu VBA Konverter

    elmard 03.11.2019 14:49
    Bei SmartTools neue Version 4.0
    Dieses Tool liegt inzwischen in der Version 4 vor und läuft nun auch von A2013 und A2016 sowie im ...

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    TommyK 27.02.2019 06:52
    Workshop
    Hallo mpegjunkie, danke für Dein Feedback. Schön das Dir Workshop weiter hilft. :D

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    mpegjunkie 26.02.2019 20:10
    Perfekter Workshop
    Hallo Tommy, perfekter Workshop, toll und umfassend erläutert. Jetzt nutze ich diese Controls auch.

    Weiterlesen...