' Function 8
' VBGETFOLDERDLG ********** ( nicht geändert ) **********
FUNCTION VBGETFOLDERDLG() EXPORT AS STRING
    DIM browseTyp AS BROWSEINFO
    DIM rval AS LONG
    DIM a AS ASCIIZ * 260
 
    browseTyp.hwndOwner = GetActiveWindow()
    browseTyp.lpszTitle = lstrcat("Bitte wählen Sie ein Laufwerk oder" & _
      "Verzeichnis aus." + CHR$(0), CHR$(0)) ' hier 
    ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    ' !!!!!!!!!!!!!
    browseTyp.ulFlags = %BIF_RETURNONLYFSDIRS OR %BIF_DONTGOBELOWDOMAIN
 
    rval = SHBrowseForFolder(browseTyp)
 
    IF rval <> 0 THEN
       SHGetPathFromIDList BYVAL rval, a
       CoTaskMemFree rval
       FUNCTION = TRIM$(a)
    END IF
 
END FUNCTION