Macro listar archivos de carpetas | RaduNordenhulk 

Comente la línea Application.FileDialog(msoFileDialogFolderPicker).Show y a la variable D asigne la ruta donde buscará los archivos Ejemplo: 'Application.FileDialog(msoFileDialogFolderPicker).Show D = "C:\Test" 'Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

En la línea Range("a" & r).Value = D & "\" & a.Name cambiarlo por 'Con esto verás solo los archivos listados (sin la ruta) Range("a" & r).Value = a.Name Saludos y gracias por tus comentarios!

Usted puede unirse a mi canal, tengo una excelente propuesta para mejorar sus habilidades: ru-vid.com/show-UCwnx_b0C6UGB0vnKOLMfGeAjoin

Hola, para obtener la lista de archivos sin la ruta solo escribe Range("a" & r).Value = a.Name Para obtener solo la ruta seleccionada, según el código se guarda en la variable D Range("a" & r).Value = D Me puedes indicar el mensaje de error por favor? Saludos!

@@RaduNordenhulk gracias amigo.

Usted puede unirse a mi canal, tengo una excelente propuesta para mejorar sus habilidades: ru-vid.com/show-UCwnx_b0C6UGB0vnKOLMfGeAjoin

Hola, muchas gracias por tu comentario. Para obtener el tamaño del archivo y la fecha de modificación solo agrega el siguiente código: Range("b" & r).Value = FileLen(a) Range("c" & r).Value = FileDateTime(a) Esto lo escribes justo debajo del código que obtiene el nombre del archivo minuto 05:22 Saludos y seguimos en contacto.

la variable "a" va tomando cada elemento del arreglo f.files... es decir si f.files tiene 4 archivos, el foreach asignará a la variable "a" el primer elemento de f.files, y después el segundo y así sucesivamente

Gracias Jhonny, este curso gratuito en Udemy hasta el 31 de Diciembre 2019 le puede ser de utilidad! ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-EXBDPg3Xk88.html&lc=

Usted puede unirse a mi canal, tengo una excelente propuesta para mejorar sus habilidades: ru-vid.com/show-UCwnx_b0C6UGB0vnKOLMfGeAjoin

Hola, para obtener la lista de archivos sin la ruta solo escribe Range("a" & r).Value = a.Name Saldos!!! :)

Hola, claro que si.... Agrega esta linea abajo de "Application.FileDialog(msoFileDialogFolderPicker).Show" If Len(D) = 0 Then MsgBox "No se ha seleccionado ninguna carpeta": Exit Sub El código debería quedar así: Sub Lector() Hoja1.Select Range("A2:a1048576").ClearContents Dim D As String Application.FileDialog(msoFileDialogFolderPicker).Show 'Si no se selecciona ninguna carpeta entonces muestra mensaje y sale del programa... If Len(D) = 0 Then MsgBox "No se ha seleccionado ninguna carpeta": Exit Sub D = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) Set fs = CreateObject("Scripting.Filesystemobject") Set f = fs.getfolder(D) r = 2 For Each a In f.Files If Not Right(a.Name, 4) = ".ini" Then Range("a" & r).Value = D & "\" & a.Name r = r + 1 End If Next a End Sub

No me funciona bien, me da el mensaje todo el rato, lo he solucionado (de manera cutre) con un "if" y un "else" y una nueva variable, igual no es la manera mas limpia, pero me funciona, dime si se puede repara lo que me has pasado, para que me funcione. Gracias :D Así lo he dejado :P Sub Lector() Hoja1.Select Range("A2:A1048576").ClearContents Dim D As String Dim E As String E = 0 Application.FileDialog(msoFileDialogFolderPicker).Show 'Si no se selecciona ninguna carpeta entonces muestra mensaje y sale del programa... 'If Len(D) = 0 Then MsgBox "No se ha seleccionado ninguna carpeta": Exit Sub On Error GoTo Fin D = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) Set fs = CreateObject("Scripting.Filesystemobject") Set f = fs.getfolder(D) r = 2 For Each a In f.Files If Not Right(a.Name, 4) = ".ini" Then Range("a" & r).Value = D & "\" & a.Name r = r + 1 End If Next a MsgBox "¡Directorio Actualizado!", vbInformation E = 1 Fin: If E = 0 Then MsgBox "Se canceló la actualización del directorio.", vbCritical Else End If End Sub

Vale, creo que así está mejor: (¿Lo mejorarías?) Sub Lector() Hoja1.Select Range("A2:A1048576").ClearContents Dim D As String Application.FileDialog(msoFileDialogFolderPicker).Show 'Si no se selecciona ninguna carpeta entonces muestra mensaje y sale del programa... On Error GoTo Fin D = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) Set fs = CreateObject("Scripting.Filesystemobject") Set f = fs.getfolder(D) r = 2 For Each a In f.Files If Not Right(a.Name, 4) = ".ini" Then Range("a" & r).Value = D & "\" & a.Name r = r + 1 End If Next a MsgBox "¡Directorio Actualizado!", vbInformation Exit Sub Fin: MsgBox "No se ha seleccionado ninguna carpeta.", vbCritical End Sub

Esa es otra manera, pero recuerda limpiar la variable "D", ya que en algunas ocasiones se queda el valor que corriste anteriormente.... Solo agregar D = "" después del MsgBox "No se ha seleccionado ninguna carpeta.", vbCritical + vbOkOnly También puedes agregar al tipo de mensaje vbCritical + vbOkOnly para que sea el único botón a presionar.... Saludos

De acuerdo, muchas gracias.

Usted puede unirse a mi canal, tengo una excelente propuesta para mejorar sus habilidades: ru-vid.com/show-UCwnx_b0C6UGB0vnKOLMfGeAjoin

Gracias Gabyta, este curso gratuito en Udemy hasta el 31 de Diciembre 2019 le puede ser de utilidad! ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-EXBDPg3Xk88.html&lc=

Gracias Santiago, este curso gratuito en Udemy hasta el 31 de Diciembre 2019 le puede ser de utilidad! ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-EXBDPg3Xk88.html&lc=

Gracias Joreh, este curso gratuito en Udemy hasta el 31 de Diciembre 2019 le puede ser de utilidad! ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-EXBDPg3Xk88.html&lc=

Gracias Martín, este curso gratuito en Udemy hasta el 31 de Diciembre 2019 le puede ser de utilidad! ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-EXBDPg3Xk88.html&lc=

Gracias H[ector, este curso gratuito en Udemy hasta el 31 de Diciembre 2019 le puede ser de utilidad! ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-EXBDPg3Xk88.html&lc=

Hola, escribe Range("c" & r).Value = FileDateTime(a) Con esto deberías ver la fecha de creación del archivo! Saludos! Raúl Guerrero

Raul que crack, esta es mi macros como debria incorporalo? Sub Listaindice() Dim Indice As String Dim i As Integer Dim listado As String Indice = path Sheets("indicereporte").Select Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row) = "" i = 2 listado = Dir(Indice) Do While Len(listado) > 0 Sheets("indicereporte").Select Cells(i, 1) = listado listado = Dir() i = i + 1 Loop End Sub

Agrega esta línea dentro de tu Do While Cells(i, 2) = FileDateTime(Mid(Indice, 1, Len(Indice) - 1) & listado)

Queda así! Sub Listaindice() Dim Indice As String Dim i As Integer Dim listado As String Indice = "C:\Users\correcj\Ecolab\Workflow Account Payable - Documentos\Invoices\All\*pdf" Sheets("indicereporte").Select Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row) = "" i = 2 listado = Dir(Indice) Do While Len(listado) > 0 Sheets("indicereporte").Select Cells(i, 1) = listado Cells(i, 2) = FileDateTime(Mid(Indice, 1, Len(Indice) - 1) & listado) listado = Dir() i = i + 1 Loop End Sub Saludos!!! Raúl Guerrero

me salio error 52 nombre de archivo incorrecto