Exploración de carpetas

[AdrianZifra]

Buenas, estoy investigando por la página web y no encuentro ningún ejemplo de macro que desglose lo que necesito.

Trabajo desde una carpeta madre, digamos: "Vehículos".

Dentro de la carpeta "Vehículos" tengo infinidad de subcarpetas.

Me gustaría poder listar en el excel todas esas subcarpetas de la siguiente forma:

En la Columna A, que aparezca a partir de la fila A2 el nombre original de la subcarpeta, no la ruta.

Y en la Columna B, el acceso directo, es decir, un hipervínculo de la subcarpeta.

También me gustaría tener un botón para actualizar las nuevas subcarpetas que vaya creando en esta carpeta madre "Vehículos".

En resumen, necesito listar las subcarpetas de una carpeta madre, y que pueda tener el acceso directo a ellas desde el Excel. Lógicamente, necestaría un botón de actualización, para no tener que actualizar desde el Visual.

Muchas gracias,

Adrian.

[AdrianZifra]

El botón ya lo tengo.

Y realmente, el código que tengo es el siguiente:

Sub ListaArchivos()

On Error Resume Next

DisplayAlerts = True

Application.ScreenUpdating = True

Dim Path As String

Dim fila As Integer

fila = 2

'Se crea FileSystemObject que da acceso al sistema de archivos del sistema

Set fso = CreateObject("Scripting.FileSystemObject")

'Indicamos la ruta de donde vamos a obtener

Path = "C:\Vehículos"

'Definimos variables para determinar nombre de archivos y subcarpetas

Set carpeta = fso.getfolder(Path)

Set SubCarp = carpeta.subfolders

Set ficheros = carpeta.Files

Sheets("hoja1").Range("A2:d1000").ClearContents

'Subcarpetas

For Each SubCarp In SubCarp

a = SubCarp.Name

Sheets("Hoja1").Cells(fila, 1) = Path

Sheets("Hoja1").Cells(fila, 2) = a

fila = fila + 1

Next SubCarp

'Cells("A:Z").EntireColumn.AutoFit

DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

_

_

Esto código me da en la Columna A, la ruta de las subcarpetas, que viene a ser siempre la misma.

En la Columna B, me da el nombre de la subcarpeta.

Lo que necesitaría es que en lugar de darme la ruta, en la Columna A, me de el Acceso Directo. Como si pone Click Aquí... o algo así,

o que salga la ruta, no me importa, pero que la funcionalidad de al dar click me lleve a la subcarpeta original.

No se si me hago de entender.