¡VB ayuda a contar el número de archivos en una carpeta!

Private Sub Dir1_Click()

n = 0

filenum Dir1.List(Dir1.ListIndex)

MsgBox n

End Sub

Función filenum(carpeta ByVal como cadena)

Establecer fso = CreateObject("scripting.filesystemobject")

Establezca fd = fso.GetFolder(carpeta)

n = n + fd.Files.Count

Para cada sfd en fd.subfolders

DoEvents

filenum sfd

Siguiente

Función final