Нужно корректно отсортировать файлы для ComboBox - VB

Формулировка задачи:

Доброго времени суток! Задача такая: есть несколько подпапок, в которых содержится энное количество файлов, и, которые нужно по именам отразить в нескольких ComboBox-ах. Проблема в том, что допустим, если задать цикл от 0 до 9 с помощью For - Next, а файлов всего, скажем, 5, то естественно выскочит ошибка, т.к. превышен диапозон. Пробовал решить проблему так:

Private Sub Form_Load()
'
File1.Path = "opertors"
For a = 0 To 9
On Error GoTo OpErr
File1.ListIndex = a
Combo1.AddItem File1.FileName
Next a
OpErr:
Combo1.ListIndex = 0
'
File2.Path = "source"
For b = 0 To 9
On Error GoTo SrErr
File2.ListIndex = b
Combo2.AddItem File2.FileName
Next b
SrErr:
Combo2.ListIndex = 0
End Sub

Работает на ура с первым куском кода, но (!), если подключаешь второй кусок таким же способом, VB начинает упорно ругаться на File2.ListIndex = b и при этом выдает 381-ю ошибку. Уже все перепробовал... но безрезультатно. На ум приходит лишь создать несколько .INI файлов, где тупо писать цифру, сколько файлов в каждой подпапке на текущий момент, открывать их Open_оми и передавать значение For-у, чтобы указать правильный диапозон. Вроде несложно, но как-то по детски и гемморно каждый раз править эти файлы. Должен же быть простой автоматизированный метод решения этой проблемы. Помогите, кто знает, пожалуйста! Спасибо большое!

Решение задачи: «Нужно корректно отсортировать файлы для ComboBox»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
 
File1.Path = "d:\opertors"
File2.Path = "d:\source"
 
For a = 0 To File1.ListCount - 1
Combo1.AddItem File1.List(a)
Next a
 
For b = 0 To File2.ListCount - 1
Combo2.AddItem File2.List(b)
Next b
 
End Sub
                        