Option Explicit On 
Option Strict On
 
Imports System.Windows.Forms
 
Public Module modBrowseForFolder
    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
      "SHGetPathFromIDListA" (ByVal pidl As Integer, ByVal pszPath As String) _
      As Integer
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
    "SHBrowseForFolderA" (ByRef lpBrowseInfo As BROWSEINFO) As Integer
 
    Private Structure BROWSEINFO
        Dim hOwner As Integer
        Dim pidlRoot As Integer
        Dim pszDisplayName As String
        Dim lpszTitle As String
        Dim ulFlags As Integer
        Dim lpfn As Integer
        Dim lParam As Integer
        Dim iImage As Integer
    End Structure
 
    Public Function GetFolder(ByVal frm As Form) As String
        Dim Dialog As BROWSEINFO
        Dim Directory As String, Path As String
        Dim pidl As Integer
 
        Dialog.hOwner = frm.Handle.ToInt32()
        Dialog.lpszTitle = "Bitte wählen Sie das Verzeichnis, in dem sich die" & _
          "Dateien befinden."
        Path = Space(512)
        pidl = SHBrowseForFolder(Dialog)
        SHGetPathFromIDList(pidl, Path)
        Directory = Left(Path, InStr(Path, Chr(0)) - 1)
        If Not Directory = "" And Not Right(Directory, 1) = "\" Then Directory _
          = Directory & "\"
        GetFolder = Directory
    End Function
End Module