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.
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
MsgBox Fso.GetFolder("c:\carpeta").Files.Count
Set Fso = Nothing