FoxPro/Visual FoxPro - Contar ficheros en un directorio

Quisiera saber como puedo por programa saber el numero de ficheros txt que tengo en un directorio específico.

Gracias

Revisa Collection Class


Suerte

Chequea ADIR() en la ayuda.

Ejemplo
Dimension arreglo[1,5]
directorio = GETDIR()
SET DEFA TO &directorio
=ADIR(arreglo,"*.TXT")
?ALEN(arreglo,1)