Programa que cuente los archivos en una carpeta

[Bazookao]

como se puede realizar un archivo que cuente cuantos archivos hay en una carpeta

Código:

form1.label1.text=num_archivos

por ejemplo

[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
 

[Bazookao]

graicas
por el codigo