¿Como Agregar items múltiples listboxs?
Como hago para agregar a este código una 3ra ruta con una listbox3 (aun no manejo el uso del loop, while, do) si anexan una breve descripción del funcionamiento les agradezco. Saludos!
Private Sub UserForm_Initialize() ruta1 = "C:\Users\...........\" ruta2 = "C:\Users\............\" ' arch1 = Dir(ruta1 & "*.pdf") ' Do While arch1 <> "" ListBox1.AddItem arch1 arch1 = Dir() Loop arch2 = Dir(ruta2 & "*.pdf") Do While arch2 <> "" ListBox2.AddItem arch2 arch2 = Dir() Loop End Sub Private Sub CommandButton4_Click() 'Por Dante Amor 'Cargar lista de archivos de carpetas ruta1 = "C:\Users\...........\" ruta2 = "C:\Users\............\" ' ListBox1.Clear ListBox2.Clear arch1 = Dir(ruta1 & "*" & TextBox1.Value & "*.pdf") Do While arch1 <> "" ListBox1.AddItem arch1 arch1 = Dir() Loop arch2 = Dir(ruta2 & "*" & TextBox1.Value & "*.pdf") Do While arch2 <> "" ListBox2.AddItem arch2 arch2 = Dir() Loop End Sub
1 Respuesta
Respuesta de Dante Amor
3
Te anexo la macro con comentarios.
Private Sub CommandButton4_Click() 'Por Dante Amor 'Cargar lista de archivos de carpetas ruta1 = "C:\Users\...........\" ruta2 = "C:\Users\............\" ruta3 = "C:\Users\............\" ' ListBox1.Clear ListBox2.Clear ListBox3.Clear arch1 = Dir(ruta1 & "*" & TextBox1.Value & "*.pdf") Do While arch1 <> "" ListBox1.AddItem arch1 arch1 = Dir() Loop arch2 = Dir(ruta2 & "*" & TextBox1.Value & "*.pdf") Do While arch2 <> "" ListBox2.AddItem arch2 arch2 = Dir() Loop ' 'Carga todos los nombres de archivos pdf existentes en la variable arch3 arch3 = Dir(ruta3 & "*" & TextBox1.Value & "*.pdf") ' 'El siguiente Do, lee el contenido de la variable 'hasta llegar al final de los nombres, es decir, lee uno por uno 'los nombres cargados en arch3 hasta que es igual a "" 'Cuando es igual a "" entonces termina el loop Do While arch3 <> "" ListBox3.AddItem arch3 arch3 = Dir() 'pasa al siguiente nombre de archivo Loop End Sub
['No olvides valorar las respuestas.
y la parte del evento UserForm_Initialize?
Private Sub UserForm_Initialize() ruta1 = "C:\Users\...........\" ruta2 = "C:\Users\............\" ruta3 = "C:\Users\............\" ' arch1 = Dir(ruta1 & "*.pdf") ' Do While arch1 <> "" ListBox1.AddItem arch1 arch1 = Dir() Loop arch2 = Dir(ruta2 & "*.pdf") Do While arch2 <> "" ListBox2.AddItem arch2 arch2 = Dir() Loop arch3 = Dir(ruta3 & "*.pdf") Do While arch3 <> "" ListBox3.AddItem arch3 arch3 = Dir() Loop End Sub
['No olvides valorar las respuestas.
