Two ComboBoxes to select folder and file names. I'm close!

[jmpatrick]

Good afternoon. I have code to populate two ComboBoxes. The first piece works fine. It selects from a list of folders named by year:

Archive_Open_Year.List = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""\\GLC-SERVER\Pulte\Z_Pulte Master Archive\*."" /b").stdout.readall, vbCrLf)

The second ComboBox should be files found in whatever folder is selected in the first. I've been working on this all afternoon and I can't seem to incorporate the year value found in the first ComboBox:

Archive_Open_Date.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""\\GLC-SERVER\Pulte\Z_Pulte Master Archive\" & "2022"" /b /a-d /o-n").stdout.readall, vbCrLf), ".")

Right now, the second ComboBox lists files in the 2022 folder since I added the & "2022" to the code to show where I want the value from the first ComboBox to be used.

Thanks!

 

[John_w]

The second ComboBox should be files found in whatever folder is selected in the first.

Archive_Open_Date.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""\\GLC-SERVER\Pulte\Z_Pulte Master Archive\" & Archive_Open_Year.Value & """ /b /a-d /o-n").stdout.readall, vbCrLf), ".")
Archive_Open_Date.ListIndex = -1

 

[jmpatrick]

Archive_Open_Date.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""\\GLC-SERVER\Pulte\Z_Pulte Master Archive\" & Archive_Open_Year.Value & """ /b /a-d /o-n").stdout.readall, vbCrLf), ".")
Archive_Open_Date.ListIndex = -1

Perfect! I was sort of close. Thanks.