Listbox con nombres de archivos
buenas tardes, quisiera saber como cargar un listbox con los nombres de archivos que estén dentro de una carpeta especifica.
muchas gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Esta rutina está asociada a un botón. También podrías colocar las instrucciones en el evento Initialize de un Userform.
Private Sub CommandButton1_Click()
'x Elsamatilde
'Indicar la carpeta -
carpeta = "D:\Descargas\Facturas\"
ChDir (carpeta)
'ajustar extensión de los libros o dejar *.* si se quieren todos los archivos de la carpeta
archi = Dir("*.xls")
'se inicia el bucle
Do
ListBox1.AddItem archi
archi = Dir()
'se repite el bucle hasta que no se encuentren archivos
Loop Until archi = ""
