Contar archivos dentro de subcarpetas por extensión

Estoy exprimiendome la sesera y no logro realizar lo que quiero y por eso solicito de vuestras ayuda.

Tengo un carpeta que, automáticamente se me generan dentro varias subcarpetas con archivos con una misma extensión.

Habría alguna forma de poder contar el numero de archivos con la misma extensión dentro de la carpeta y subcarpetas, ¿poner el numero en una celda para después poder compararla con otra celda?

1 respuesta

Respuesta
2

¿Y qué extensión es la que perseguimos?

La extensión es zlsm.

Gracias por contestar

Perdón, .xlsm

Tengo hecho hasta aquí, me faltaría las subcarpetas.

<pre class="bbcode_code" style="-webkit-box-shadow: none !important; font-family: monospace; line-height: 12px; border-color: initial; text-align: left; overflow-x: scroll; overflow-y: scroll; direction: ltr; background-image: none; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: #f2f6f8; font-size: 12px; height: 252px; background-position: initial initial; background-repeat: repeat no-repeat; border-width: 1px; border-style: inset; padding: 6px; margin: 0px;">Option ExplicitConst PATH As String = "C:\Documents and Settings\LAMOGA\Escritorio\Formulario Web\" Public Sub Form_Load() Call CountFileType("xlsm")End Sub Public Sub CountFileType(ByVal fType As String)Dim c As Long If LenB(Dir(PATH & "\*." & fType)) <> 0 Then c = c + 1 Do While (LenB(Dir()) <> 0) c = c + 1 ' found another file increment counter Loop MsgBox "Number of " & fType & " = " & cElse MsgBox "Cant find any " & fType & " files!"End If End Sub</pre>

Esta macro te podrá ayudar:

Sub proceso()
'por luismondelo
ChDir "C:\Users\Luis\Documents\escalon1\"
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder(CurDir())
For Each subcarpeta In carpeta.subfolders
For Each archivo In subcarpeta.Files
If LCase(Right(archivo, 4)) = "xlsm" Then
cuenta = cuenta + 1
End If
Next
Next
MsgBox "hay un total de: " & cuenta
End Sub

Estoy analizando las subcarpetas que cuelgan desde el path:

C:\Users\Luis\Documents\escalon1\

Y solo cuento los archivos cuya extensión es xlsm

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar pegar archivos misma extensión

He estado investigando y se que se pueden copiar/pegar archivos de una ruta a otra mediante macro. No he conseguido encontrar solución para mi problema. En una carpeta llamada Registros, se me generan una o varias carpetas. El nombre de estas...
1 respuesta

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas

Buscar archivos en subcarpetas (fso)

Necesito un poco de ayuda con una duda. Estoy intentando hacer una macro que busque un archivo en una carpeta y subcarpetas. Utilizo el fso y he logrado encontrar un archivo en una carpeta pero no logro entender como buscar en subcarpetas.
1 respuesta

Borrar el contenido de una Carpeta desde excel

Necesito por favor me apoyen con un código Vba. Requiero validar si una carpeta se encuentra vacía, y si no lo está que borre los archivo contenido en ésta. Actualmente tengo el siguiente código: Sub borrar() If RmDir("D:\Oladier\06...
2 respuestas

Listar rutas de carpetas dentro de otra carpeta

Soy muy nuevo en esto, he empezado hace poco con las macros y es algo que me parece interesante, de momento voy investigando con las que me bajo, las voy modificando a mis necesidades. Ahora necesito para el trabajo lo siguiente: Supongamos que tengo...
11 respuestas

Macro para generar hipervínculos con parte del nombre.

Necesito crear una macro que me genere hipervínculos. Tengo una hoja con un listado de códigos, de 5 números, y cada código está asociado a un archivo pdf. He probado varias opciones pero el problema que tengo es con la secuencia de la ruta, ya que...
2 respuestas

Macro para copiar archivos

Necesito una macro para copiar un serie de archivos que están en una una única carpeta, a una serie de subcarpetas dentro de la misma, esto a partir de un listado de excel. En el listado aparece el nombre del archivo en "A1" y en la celda "B1"...
1 respuesta

Macro Excel 2010 Para contar archivos en carpeta

Solicito de su apoyo para elaborar una macro en excel 2010 que me cuente todos los archivos que se encuentran el la ruta: "C:\ Users\ A2273174\ Desktop\ Archivos\ Resultados" y el resultado de la cuenta me los guarde en una variable. Uno de los...
1 respuesta

Macro Contar archivos de un directorio Excel 2010

Serían tan amables en ayudarme con lo siguiente: Quiero hacer una macro que me cuente los archivos que se encuentran en un directorio y me guarde el resultado en una variable para después usar esa variable en un bucle, estoy usando excel 2010 y no...
2 respuestas

Crear un macro para eliminar arhcivos

Quiero generar una macro en excel de forma tal que al ejecutarlo se borren tres archivos dos .xls y un .doc Los nombre de archivos "hola.xls" "como va.xls" y "chau.doc" No sabría como hacer para generar una sola macros para que borre los tres de una...
2 respuestas