Archivos de una carpeta en un combo

Hola:
Espero que te sirva

Private Sub UserForm_Initialize()

Dim directory As String
Dim f As String
Dim i As Long
Dim Archivos As String

On Error Resume Next

directory = "c:\Directorio"
Me.ComboBox1.RowSource = ""
With Application.FileSearch
.NewSearch
.LookIn = directory
.Filename = "*.*" ' puede ser "*.xls"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
Archivos = Dir(.FoundFiles(i), 7)
Me.ComboBox1.AddItem Archivos
f = Dir ' cambia al archivo siguiente
Next i
End With
End Sub

Saludos, fer


""
escribió en el mensaje
news:

Buen día,
Tengo archivos como:
Producción ene 2004, Producción feb 2004, etc. en una carpeta.
solicito me apoyen con un código para introducir lo que haya en esa

carpeta

a un combo ya que cada mes guardaré otro archivo.
De antemano, gracias.
Un saludo.
Jorge

Excelente !!!
Muchas gracias !!!
Un saludo.

"Fer" wrote:

Hola:
Espero que te sirva

Private Sub UserForm_Initialize()

Dim directory As String
Dim f As String
Dim i As Long
Dim Archivos As String

On Error Resume Next

directory = "c:\Directorio"
Me.ComboBox1.RowSource = ""
With Application.FileSearch
.NewSearch
.LookIn = directory
.Filename = "*.*" ' puede ser "*.xls"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
Archivos = Dir(.FoundFiles(i), 7)
Me.ComboBox1.AddItem Archivos
f = Dir ' cambia al archivo siguiente
Next i
End With
End Sub

Saludos, fer


""
escribió en el mensaje
news:
> Buen día,
> Tengo archivos como:
> Producción ene 2004, Producción feb 2004, etc. en una carpeta.
> solicito me apoyen con un código para introducir lo que haya en esa
carpeta
> a un combo ya que cada mes guardaré otro archivo.
> De antemano, gracias.
> Un saludo.
> Jorge
>