Cantidad de ficheros de una carpeta

[xavi]

Palabras clave: FSO, cantidad, cuantos, ficheros, archivos, carpeta, directorio
Autor: ¿Búho?
Extraído de: La web del Búho

Objetivo:
Averiguar la cantidad de ficheros que aparecen en una carpeta dada.

Código [Seleccionar] Expandir


Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
MsgBox Fso.GetFolder("c:\carpeta").Files.Count
Set Fso = Nothing