Visual Basic - contar archivos de una carpeta desde vb

hola me gustaria desde vb60 contar cuantos archivos jpg hay en una carpeta determinada (c:\fotos)

Prueba con la siguiente función:

Private Function ContaArchivos(Ruta As String, _
Optional Filtro As String = "*.*") As Long
Dim i As Long
Dim Arch As String

i = 0
Arch = Dir(Ruta & Filtro)
If Len(Arch) > 0 Then
i = i + 1
Do
Arch = Dir
If Len(Arch) > 0 Then
i = i + 1
End If
Loop Until Len(Arch) = 0
End If
ContaArchivos = i
End Function

Un saludo.