Hola buenos días.

Con la siguiente macro listo de una carpeta raíz y los archivos con su ruta que se encuentran dentro de subcarpetas  y en otra columna el nombre del archivo.

Debido a que mis rutas son largas me gustaría poder agregar a mi lista el nombre de las 2 carpetas donde se encuentra cada archivo listado.

ejemplo: \DIRECT\1. carpetaUSB\Letters\ Letter - Comparative Reports.docx

debería extraer =1. carpetaUSB\Letters\

Son las 2 ultimas carpetas de la ubicación de mi archivo.

Para así conocer la carpeta en la que se encuentra, sin perderme en la ruta completa del archivo.

Muchas gracias

Mariano

 

P extraer nombre de carpeta.xlsm

Te dejo esta UDF que hace lo que quieres.

Function ExtraerCarpetas(Ruta As String) As String
Carpetas = Split(Ruta, "\")
ExtraerCarpetas = Carpetas(UBound(Carpetas) - 2) & "\" & Carpetas(UBound(Carpetas) - 1) & "\"
End Function

Revisa las fórmulas de la columna D.

 

P extraer nombre de carpeta.xlsm