Добрый день

Столкнулся с проблемой выбора каталога из произвольного корня. Использовал API функцию SHBrowseForFolder и SHSimpleIDListFromPath

Private Function BrowseFolder(szDlgTitle As String, _
                    Optional strRootFldr As String = "") As String
Dim X As Long
Dim bi As BROWSEINFO
Dim dwIList As Long
Dim szPath As String
Dim lngFldrId As Long

    If strRootFldr > "" Then
        lngFldrId = SHSimpleIDListFromPath(strRootFldr) 'Не работает!!!
    End If
    With bi
        .hwndOwner = hWndAccessApp
        .lpszTitle = szDlgTitle
        .ulFlags = BIF_RETURNONLYFSDIRS
        .pidlRoot = lngFldrId
    End With
    dwIList = SHBrowseForFolder(bi)
    szPath = Space$(MAX_PATH)
    X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
    BrowseFolder = Trim$(szPath)
End Function

SHSimpleIDListFromPath адекватно не работает, в чем проблема и есть ли ее аналог?

Заранее благодарен.