Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

mostrar subCarpeta

M

mago18

Well-known member
Registrado
1 Dic 2010
Mensajes
1.195
Hola buenas tardes:

Tengo una macro muy util que me da la "ruta" completa de subcarpetas que están dentro de una ruta (carpeta) y me arroja los archivos que se tienen en ellas.
El problema es que...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
 

Adjuntos

Solución
Macro Antonio
Sustituye tu macro por esta:
Código: 
Sub Listar_archivos_en(Carpeta As String, Completo As Boolean)
Dim Archivo, SubCarpeta, Fila As Long
Fila = Range("a65536").End(xlUp).Row + 1
With CreateObject("scripting.filesystemobject")
With .getFolder(Carpeta)
For Each Archivo In .Files
   With Archivo
      carpetas = Split(.Path, "\")
      Range("a" & Fila & ":f" & Fila) = _
         Array(Application.Substitute(.Path, .Name, ""), _
               carpetas(UBound(carpetas) - 1), _
               .Name, _
               .Size, _
               .DateLastModified, _
               .Type)
   End With
   Fila = Fila + 1
   Next
   If Completo Then
      For Each SubCarpeta In .SubFolders
         Listar_archivos_en SubCarpeta.Path, True
      Next...
Ordenar por fecha Ordenar por votos
Sustituye tu macro por esta:
Código: 
Sub Listar_archivos_en(Carpeta As String, Completo As Boolean)
Dim Archivo, SubCarpeta, Fila As Long
Fila = Range("a65536").End(xlUp).Row + 1
With...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
 
Voto a favor 0 Voto en contra
Solución
Voto a favor 0 Voto en contra
Iniciar sesión o registrarme para responder aquí.

Temas similares

K
  • Pregunta Pregunta
Mostrar formuñario
Respuestas
3
krlo
K
L
  • Pregunta Pregunta
Mostrar Formulario - Ocultar Excel (2016)
Respuestas
2
Luisaco
L
X
  • Resuelto
Textbox se mueven al ocultar/mostrar columna y guardar
Respuestas
2
Xtamel
X
T
  • Pregunta Pregunta
Ocultar filas/mostrar y proteger filas ocultas para que no se muestren
Respuestas
2
thecolosongz
T
E
  • Resuelto
Mostrar o no Valores Cero (0)
Respuestas
2
eliasp
E
L
  • Resuelto
Mostrar valor de variable
Respuestas
10
Héctor Miguel
Héctor Miguel
M
  • Pregunta Pregunta
mostrar posibles combinaciones al sombrear el rango de datos
Respuestas
6
magoblue
M
M
  • Resuelto
Ayuda macro para mostrar imagen
Respuestas
4
Miltiño
M
S
  • Resuelto
Ocultar o mostrar hojas en función de verdadero o falso
Respuestas
4
Santanna
S
J
  • Resuelto
Userform mostrar datos en celda especifica en excel
Respuestas
2
joselica
J
Volver
Arriba