Your first picture shows a Windows Explorer window which is handled differently than a combo box. If you want to work with Explorer, the code below (written in VBScript) worked for me. There is probably a better way to do this.
Dim FindFolder
' Global Variable
FindFolder = False
' *********************************************************************************************************************
Sub FC
While FindFolder = False
Folder() 'Search for the folder
If FindFolder = True Then
Exit Sub ' Folder was found so exit While loop
End If
PageDown() ' Folder was not found, so page down
WEnd
End Sub
' *********************************************************************************************************************
Sub Folder()
' Searches for the folder
Dim PropArray, ValuesArray, p, w
' Creates arrays of property names and values
PropArray = Array("value", "ObjectIdentifier" ,"Visible")
ValuesArray = Array("FOLDER NAME", "Name", True) ' FOLDER NAME is the name of the folder you are looking for
Set p = Aliases.explorer.Items_View 'This is the mapped Explorer Window object containing the folder list
Set w = p.FindChildEx(PropArray, ValuesArray, 10, True, 1000)
If w.Exists Then
w.DblClick ' Double Clicks on the desired folder to open it
FindFolder = True
End IF
End Sub
' *********************************************************************************************************************
Sub PageDown()
' Pages down the Explorer folder view
Dim p
Set p = Aliases.explorer.Items_View.Vertical_Scroll_Bar ' This is the mapped vertical scroll bar of the Explorer window
p.Focus
p.UIAObject("Page_down").Click
End Sub