FolderBrowserDialog in .Net nachbilden

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    @VaporiZed
    -> egal, ob .NET-Framework-Dialog, Shell-Dialog, oder über WinAPI-Funktion mit einer entsprechenden Fehlermeldung quittiert.

    Die API SHBrowseForFolder sollte das können. Bei BROWSEINFO.pidlRoot kann ja eine PIDL, die z.B. von SHParseDisplayName -> SHGetIDListFromObject kommt, übergeben werden. SHParseDisplayName kann entsprechende Ordner verarbeiten. Aber: learn.microsoft.com/en-us/wind…hbrowseforfoldera#remarks

    Wie schaut es eigentlich in .NET5/6/7 aus? Ich hab mir das noch garnicht großartig angeschaut. Gibt es da auch noch die alten Dialoge? UWP-Apps z.B. verwenden ebenfalls den FolderPicker: learn.microsoft.com/en-us/uwp/…erpicker?view=winrt-22621

    Edit: Nur der Vollständigkeit Halber wie man es evtl. mit den alten Dialog machen könnte (Subclassing des Dialoges hab ich weggelassen). Was man halt braucht ist die DeviceID des Handy (in diesem Bsp ist meine DeviceID vom Handy zu sehen!) oder man navigiert einmalig zum entsprechenden Handy-Ordner, wählt diesen aus und nimmt den zurückgelieferten Pfad für den RootFolder.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports System.Runtime.InteropServices
    6. Public Class Form1
    8. Private Const S_OK As Integer = 0
    9. Private Const MAX_PATH As Integer = 512
    10. Private Const IID_IShellItem As String = "43826d1e-e718-42ee-bc55-a1e261c37bfe"
    12. Private Enum BROWSEINFOFLAGS As UInteger
    13. BIF_RETURNONLYFSDIRS = 1
    14. BIF_DONTGOBELOWDOMAIN = 2
    15. BIF_STATUSTEXT = 4
    16. BIF_RETURNFSANCESTORS = 8
    17. BIF_EDITBOX = 16
    18. BIF_VALIDATE = 32
    19. BIF_NEWDIALOGSTYLE = 64
    20. BIF_BROWSEINCLUDEURLS = 128
    21. BIF_UAHINT = 256
    22. BIF_DONTSHOWNEWFOLDERBUTTON = 512
    23. BIF_USENEWUI = BIF_EDITBOX Or BIF_NEWDIALOGSTYLE
    24. BIF_BROWSEFORCOMPUTER = 4096
    25. BIF_BROWSEFORPRINTER = 8192
    26. BIF_BROWSEINCLUDEFILES = 16384
    27. BIF_SHAREABLE = 32768
    28. BIF_BROWSEFILEJUNCTIONS = 65536
    29. End Enum
    31. Private Enum SIGDN As Integer
    32. SIGDN_NORMALDISPLAY = &H0
    33. SIGDN_PARENTRELATIVEPARSING = &H80018001
    34. SIGDN_DESKTOPABSOLUTEPARSING = &H80028000
    35. SIGDN_PARENTRELATIVEEDITING = &H80031001
    36. SIGDN_DESKTOPABSOLUTEEDITING = &H8004C000
    37. SIGDN_FILESYSPATH = &H80058000
    38. SIGDN_URL = &H80068000
    39. SIGDN_PARENTRELATIVEFORADDRESSBAR = &H8007C001
    40. SIGDN_PARENTRELATIVE = &H80080001
    41. SIGDN_PARENTRELATIVEFORUI = &H80094001
    42. End Enum
    44. Private Structure BROWSEINFO
    45. Dim hwndOwner As IntPtr
    46. Dim pidlRoot As IntPtr
    47. <MarshalAs(UnmanagedType.LPTStr)> Dim pszDisplayName As String
    48. <MarshalAs(UnmanagedType.LPTStr)> Dim lpszTitle As String
    49. Dim ulFlags As BROWSEINFOFLAGS
    50. Dim lpfn As IntPtr
    51. Dim lParam As IntPtr
    52. Dim iImage As Integer
    53. End Structure
    55. <DllImport("shell32.dll", EntryPoint:="SHBrowseForFolderW")>
    56. Private Shared Function SHBrowseForFolder(<MarshalAs(UnmanagedType.Struct)> ByRef lpFileOp As BROWSEINFO) As IntPtr
    57. End Function
    59. <DllImport("Shell32.dll", EntryPoint:="SHCreateItemFromParsingName")>
    60. <PreserveSig> Private Shared Function SHCreateItemFromParsingName(<[In], MarshalAs(UnmanagedType.LPWStr)> pszPath As String,
    61. <[In]> pbc As IntPtr,
    62. <[In], MarshalAs(UnmanagedType.LPStruct)> riid As Guid,
    63. <Out> ByRef pUnk As IntPtr) As Integer
    64. End Function
    66. <DllImport("Shell32.dll", EntryPoint:="SHGetIDListFromObject")>
    67. <PreserveSig> Private Shared Function SHGetIDListFromObject(<[In]> pUnk As IntPtr,
    68. <Out> ByRef ppidl As IntPtr) As Integer
    69. End Function
    71. <DllImport("Shell32.dll", EntryPoint:="SHCreateShellItem")>
    72. <PreserveSig> Private Shared Function SHCreateShellItem(<[In]> pidlParent As IntPtr,
    73. <[In]> psfParent As IntPtr,
    74. <[In]> pidl As IntPtr,
    75. <Out, MarshalAs(UnmanagedType.Interface)> ByRef ppsi As IShellItem) As Integer
    76. End Function
    78. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    80. '::{20D04FE0-3AEA-1069-A2D8-08002B30309D} = ThisPC
    81. '\\?\usb#vid.... = DeviceID vom Handy
    83. Dim RootFolder As String = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\?\usb#vid_04e8&pid_6860&ms_comp_mtp&samsung_android#7&122e7c35&0&0000#{6ac27878-a6fa-4155-ba85-f98f491d4f33}"
    84. If String.IsNullOrEmpty(RootFolder) Then RootFolder = Char.MinValue
    85. Dim pIShellItem As IntPtr
    86. If SHCreateItemFromParsingName(RootFolder, IntPtr.Zero,
    87. New Guid(IID_IShellItem),
    88. pIShellItem) = S_OK Then
    89. Dim RootFolderPIDL As IntPtr
    90. If SHGetIDListFromObject(pIShellItem,
    91. RootFolderPIDL) = S_OK Then
    92. Dim BI As New BROWSEINFO
    93. With BI
    94. .hwndOwner = Me.Handle
    95. .pidlRoot = RootFolderPIDL
    96. .pszDisplayName = "DisplayName"
    97. .lpszTitle = "Title"
    98. End With
    99. Dim SelectedFolderPIDL As IntPtr = SHBrowseForFolder(BI)
    100. If SelectedFolderPIDL <> IntPtr.Zero Then
    101. Dim IShellItemSelectedFolder As IShellItem = Nothing
    102. If SHCreateShellItem(IntPtr.Zero, IntPtr.Zero, SelectedFolderPIDL, IShellItemSelectedFolder) = S_OK Then
    103. If IShellItemSelectedFolder IsNot Nothing Then
    104. Dim pwString As IntPtr
    105. If IShellItemSelectedFolder.GetDisplayName(SIGDN.SIGDN_DESKTOPABSOLUTEPARSING, pwString) = S_OK Then
    106. If pwString <> IntPtr.Zero Then
    108. Debug.Print(Marshal.PtrToStringUni(pwString))
    110. Marshal.FreeCoTaskMem(pwString)
    111. End If
    112. End If
    113. Marshal.ReleaseComObject(IShellItemSelectedFolder)
    114. End If
    115. End If
    116. Marshal.FreeCoTaskMem(SelectedFolderPIDL)
    117. End If
    118. Marshal.FreeCoTaskMem(RootFolderPIDL)
    119. End If
    120. Marshal.Release(pIShellItem)
    121. End If
    123. End Sub
    125. <ComImport>
    126. <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
    127. <Guid(IID_IShellItem)>
    128. Private Interface IShellItem
    129. <PreserveSig> Function BindToHandler() As Integer ' Dummy
    130. <PreserveSig> Function GetParent() As Integer ' Dummy
    131. <PreserveSig> Function GetDisplayName(<[In]> sigdnName As SIGDN,
    132. <Out> ByRef ppszName As IntPtr) As Integer
    133. <PreserveSig> Function GetAttributes() As Integer ' Dummy
    134. <PreserveSig> Function Compare() As Integer ' Dummy
    135. End Interface
    136. End Class

    Mfg -Franky-

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „-Franky-“ ()

Facebook
Telefonspende