Programa que cuente los archivos en una carpeta

[David]

Puedes usar un control FileListBox y usar su propiedad ListCount para saber el número de archivos o usar una función como ésta:

Código vb:

Function ContarArchivos(Path As String) As Integer
    Dim File As String
    Dim Contar As Integer
    File = Dir(Path & "*.*", vbArchive)
    Do While File <> ""
        Contar = Contar + 1
        File = Dir
    Loop
    ContarArchivos = Contar
End Function