Como cuento los archivos que contiene una carpeta

hola,


Existe una instruccion que me diga cuantos archivos existen en una
carpeta, por ejemplo con las siguientes instrucciones asigno el path
deseado

Set oFS= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFS.GetFolder("C:\My Documents\")

ya con oFolder. Files obtengo la colección con todos los archivos de
la carpeta, pero como hago para saber cuantos archivos tiene esa
carperta, solo archivos sin contar subdirectorios.

Agradezco su ayuda