Hola potypoty. No me he enterado muy bien, de lo que quieres hacer, pero te dejo esto que he hecho rápidamente (estoy bastante pillado de curro), para que le eches un vistazo. En la columna A tendrás las subcarpetas que cuelgan de la carpeta "Mis documentos", y en la columna B, los ficheros. Ya sé que no es eso lo que buscas concretamente, pero el ejemplo te va a servir, tanto para lo que buscas, como para cosillas futuras (o eso creo):
Código:
Sub listado_ficheros()
Application.ScreenUpdating = False
'Definimos la carpeta en la que queremos meternos
Ruta = "c:\Mis documentos"
'Creamos el objeto FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpetas = FSO.GetFolder(Ruta)
Set ArchivosDelDirectorio = Carpetas.Files
Set Subcarpetas = Carpetas.SubFolders
Range("A1") = "CARPETAS"
Range("A2").Select
For Each Elementos In Subcarpetas
NombreDeLaSubcarpeta = Elementos.Name
ActiveCell = NombreDeLaSubcarpeta
ActiveCell.Offset(1, 0).Activate
Next
Range("B1") = "ARCHIVOS"
Range("B2").Select
For Each Elementos In ArchivosDelDirectorio
NombreDeLosArchivos = Elementos.Name
ActiveCell = NombreDeLosArchivos
ActiveCell.Offset(1, 0).Activate
Next
Set FSO = Nothing
Set Carpetas = Nothing
Set ArchivosDelDirectorio = Nothing
Set Subcarpetas = Nothing
Application.ScreenUpdating = true
End Sub