Bueno, este código surge a querer saber cuantos archivos y subDirectorios tiene una carpeta, en este caso la que tu seleccionas, espero les ayude un poco. **Dar de alta en Referencias Microsoft Scripting Runtime *** Si en dicho directorio hay carpetas ocultas marca error el cual no eh corregido. ****Favor de comentar, Gracias Option Explicit Sub ListarD() Rem 13/09/2010 By Tinno Dim FSO As New FileSystemObject Dim T As Object, ShApp As Object Dim Dto As String Dim f, A Dim I As Long, ii As Long Dim r As Long, NF As Long Workbooks.Add Range("A1").Select Set ShApp = CreateObject("Shell.Application") On Error Resume Next With ShApp Dto = .Browseforfolder(0, "Directorio a Listar", 0, "").Items.Item.Path End With On Error GoTo 0 If IsEmpty(Dto) = True Or Dto = "" Then GoTo Sies With Range("A1") .Value = Dto .Font.ColorIndex = 3 .Offset(1, 0).Select End With hom: Set T = FSO.GetFolder(Dto).SubFolders For Each f In T With ActiveCell .Value = Dto & "\" & f.Name .Font.ColorIndex = 3 .Offset(1, 0).Select End With Next r = Range("A" & Rows.Count).End(xlUp).Row A = Dir(Dto & "\", vbArchive) Do With ActiveCell If A = "." Or A = ".." Or A = "" Then Else .Value = Dto & "\" & A .Offset(1, 0).Select End If End With On Error Resume Next A = Dir() On Error GoTo 0 Loop Until A = "" Set T = Nothing If r = 1 Then GoTo Sies If Cells(2, 1).Value = Empty Then GoTo Sies For I = 2 To r Dto = Cells(I, 1).Value Set T = FSO.GetFolder(Dto).SubFolders For Each f In T With ActiveCell .Value = Dto & "\" & f.Name .Font.ColorIndex = 3 .Offset(1, 0).Select End With Next A = Dir(Dto & "\", vbArchive) Do With ActiveCell If A = "." Or A = ".." Or A = "" Then Else .Value = Dto & "\" & A .Offset(1, 0).Select End If End With On Error Resume Next A = Dir() On Error GoTo 0 Loop Until A = "" Next Set T = Nothing ii = r + 1 Cells(ii, 1).Select Do ree: Cells(ii, 1).Select If Application.Version < 12 Then If ActiveCell.Row = Range("A" & Rows.Count).End(xlUp).Row Or ActiveCell.Row = 65536 Then GoTo ESEL Else If ActiveCell.Row = Range("A" & Rows.Count).End(xlUp).Row Or ActiveCell.Row = 1048576 Then GoTo ESEL End If If CBool(ActiveCell.Font.ColorIndex = 3) = True Then Dto = Cells(ii, 1).Value Set T = FSO.GetFolder(Dto).SubFolders For Each f In T NF = Range("A" & Rows.Count).End(xlUp).Row + 1 With Range("A" & NF) .Select .Value = Dto & "\" & f.Name .Font.ColorIndex = 3 End With Next A = Dir(Dto & "\", vbArchive) Do NF = Range("A" & Rows.Count).End(xlUp).Row + 1 With Range("A" & NF) If A = "." Or A = ".." Or A = "" Then Else .Select .Value = Dto & "\" & A End If End With On Error Resume Next A = Dir() On Error GoTo 0 Loop Until A = "" Set T = Nothing ii = ii + 1 GoTo ree Else ii = ii + 1 GoTo ree End If ESEL: Loop Until CBool(ActiveCell.Font.ColorIndex = 3) = False Or ActiveCell.Row = Range("A" & Rows.Count).End(xlUp).Row Range("A1").Select Range(Selection, Selection.End(xlUp)).Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess ', _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sies: MsgBox "ALL READY", vbInformation End Sub Okas...

Bienvenido a la mayor comunidad de usuarios EXCEL

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

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Listar Directorio

Autor del tema Tinno
Fecha de inicio 10 Nov 2010

Tinno

New member

10 Nov 2010

Bueno, este código surge a querer saber cuantos archivos y subDirectorios tiene una carpeta, en este caso la que tu seleccionas, espero les ayude un poco.
**Dar de alta en Referencias Microsoft...

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í

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Listar solo carpetas y subcarpetas de un directorio.

Respuestas: 2

11 Mar 2022

condor7

Pregunta

Listar archivos en directorio y verificar apertura

Respuestas: 1

29 Jun 2016

Héctor Miguel

Pregunta

Macro para listar en una hoja los archivos de un directorio

Respuestas: 5

7 Ago 2013

silvia quispe

Pregunta

Listar Arquivos En Un Directorio

Respuestas: 13

18 Sep 2008

vmxgamboa

Resuelto

Listar todas las características de canciones

Respuestas: 4

29 Ago 2025

zelarra

Resuelto

Listar hojas de acuerdo al color

Respuestas: 2

1 Abr 2025

Jacifuentes521

Resuelto

Macro para listar hojas...en una celda y hojas concretas

Respuestas: 6

20 Sep 2023

arekin

Resuelto

Listar nombre de archivos seleccionados y ruta unica

Respuestas: 2

1 Sep 2023

mago18

Pregunta

Listar Carpetas Subcarpetas Archivos

Respuestas: 2

24 Ene 2023

Erik Lopez

Pregunta

listar, renombrar, eliminar, copiar y mover archivos

Respuestas: 2

23 Ene 2023

cesarronaldo

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba