Macro para listar carpetas, sub carpetas y archivos según muestra

[Callao2908]

Buenas noches, gusto de saludarles. He estado revisando los diferentes aportes pero no he encontrado, lo que realmente necesito. Por ello es que solicito vuestra comprensión y ayuda. Requiero de una macro que:

Liste los archivo de la carpeta que seleccione, y de todas las sub carpetas que contenga esa carpeta, y que obtenga los datos que indico en la cabecera: Nombre del archivo, ruta, carpeta, extensión o tipo, y los muestre en una hoja según el archivo.

PD.: la carpeta se debe escoger en una ventana similar a la imagen que muestro en el archivo adjunto.

Gracias anticipadas por la atención

Callao2908

Listar carpetas y archivos.xls

[Edgar Prisciliano]

Buen día.

Que tal amigo te adjunto un archivo , este archivo lo encontré navegando y lo modifique a lo que requieres solo que no encuentro la manera de colocar la carpeta a la que pertenece el archivo.

Codigo :

Cells(iRow, iCol).Value = myFile.GetFolderName

iCol = iCol + 1

En el fragmento de código anterior tendría que ir la referencia de la sub-carpeta pero no logro que obtenga el dato.

PD: Espero y alguien con mas conocimiento nos ayude a resolver este detalle.

Saludos

Listar-Archivos-en-Excel-incluye-carpetas-y-subcarpetas.rar

[Callao2908]

Edgar, gracias, por tú fina atención.

Yo también lo había probado, pero como tú bien lo dices, no encuentro ningún ejemplo en el que obtenga la carpeta. De igual manera he probado con otros ejemplos pero sigo en la misma, no me da el nombre de la carpeta o sub carpeta a la que pertenece el archivo.

Al igual que tú, espero que alguien con mas conocimiento nos ayude a resolver este detalle.

Gracias

Callao2908