Crear Combo box

hola, !

Me gustaria crear una macro con un formulario que contenga un control combo box donde agregue todos los archivos de un folder.
Por ejemplo:
El folder: O:\Department\Operations\Control_de_Documentos\ACTIVE PROJECTS\AMX\CLIENTE ECN's\2009\January\ECN14120.

suponiendo que ya tienes un formulario (userform1 ?) con un control de lista/combo (combobox1 ?)
prueba con unas lineas +/- como las siguientes (p.e. en el evento '_initialize' en el modulo de codigo del formulario)

Dim Ruta As String, Archivo As String
Ruta = "o:\department\operations\control_de_documentos\...\" ' <= AJUSTA
Archivo = Dir(Ruta & "*.xls") ' <= modifica segun la extension que buscas o todos = *.* '
Do While Archivo <> ""
ComboBox1.AddItem Archivo
Archivo = Dir()
Loop

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.