Type BROWSEINFO
    hOwner       As Long
    pidlRoot     As Long
    pszDisplayName As String
    lpszTitle    As String
    ulFlags      As Long
    lpfn         As Long
    lParam       As Long
    iImage       As Long
End Type
Public Declare Function SHBrowseForFolder Lib  "shell32"  Alias  "SHBrowseForFolderA"  
(lpBrowseInfo As BROWSEINFO) As Long

Public Declare Function SHGetPathFromIDList Lib  "shell32"  
Alias  "SHGetPathFromIDListA"  (ByVal pidl As Long, ByVal pszPath As String) As Long

Public Function DialogVyboraPapok(Optional НуженЛиСлэшВКонцеИмениПапки As Boolean = False) As String
    Dim aaa      As BROWSEINFO
    Dim A        As Long
    Dim str      As String * MAX_PATH
    Dim s        As String
    '// Browsing for directory.
    '#define BIF_RETURNONLYFSDIRS   0x0001  // For finding a folder to start document searching
    '#define BIF_DONTGOBELOWDOMAIN  0x0002  // For starting the Find Computer
    '#define BIF_STATUSTEXT         0x0004
    '#define BIF_RETURNFSANCESTORS  0x0008
    '#define BIF_EDITBOX            0x0010
    '#define BIF_VALIDATE           0x0020   // insist on valid result (or CANCEL)

    '#define BIF_BROWSEFORCOMPUTER  0x1000  // Browsing for Computers.
    '#define BIF_BROWSEFORPRINTER   0x2000  // Browsing for Printers
    '#define BIF_BROWSEINCLUDEFILES 0x4000  // Browsing for Everything
    aaa.hOwner = hWndAccessApp
    aaa.lpszTitle =  "Выбери папку для сохранения самой программы и ее данных. К именам будет добавлена сегодняшняя дата" 
    aaa.pszDisplayName = String$(MAX_PATH, Chr( 0 ))    ' Только имя папки
    aaa.ulFlags = 1
    A = SHBrowseForFolder(aaa)
    SHGetPathFromIDList A, str    ' Получение полного имени папки с путем с помощью pidl

    ''Debug.Print ClearNullSymbols(str), aaa.pszDisplayName
    s = ClearNullSymbols(str) ' убираем нуль-символы
    If НуженЛиСлэшВКонцеИмениПапки = True Then
        If Right(s, 1) = "/" Or Right(s, 1) = "\" Then
            DialogVyboraPapok = s    'не надо добвлять слэш - уже есть (((**например у дисков
        Else
            DialogVyboraPapok = s &  "\"     ' надо добавить слэш
        End If
    Else
        DialogVyboraPapok = s
    End If



End Function