Как сделать ComboBox со списком файлов?

[Feurrader]

Суть в следующем: есть ComboBox ,в нем отображается список файлов txt ,отдельно маркируется файл у которого дата самая свежая (отчеты).
Далее юзер нажимает кнопку Button ,выполняется макрос по загрузке данных из файла,который выбран в ComboBox
Как это замутить расскажите кто знает. Заранее благодарю

[Feurrader]

Пытался так сделать (прочитал в книжке по Excel):

Private Sub ComboBox1_Change()
With ComboBox1
Directory = "c:\windows"
f = Dir(Directory, 7)
Do While f <> ""
.AddItem "f"
f = Dir
Loop
End With
End Sub

не работает почему то...

[viter.alex]

Добавить в комбобокс можно так. Вставь этот код, например, в процедуру инициализации формы

  Dim sDirectory As String, sFile As String, sExt As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False: .Title = "Выберите папку"
    If .Show Then sDirectory = .SelectedItems(1) & "\" Else Exit Sub
  End With
  sFile = Dir(sDirectory)
  While sFile <> ""
    sExt = Mid(sFile, InStrRev(sFile, ".") + 1)
    If sExt = "txt" Then ComboBox1.AddItem sFile: sFile = Dir Else sFile = Dir
  Wend
  ComboBox1.Tag = sDirectory: ComboBox1.ListIndex = 0