Numero de archivos en un directorio

rpaulpr
26 de Junio del 2006
Alqguien conoce la manera de saber el numero de archivos que hay en un folder cualquiera desde visual 6.0

LLE
26 de Junio del 2006
una forma:

Private Sub Form_Load()
Dim archivo As String, n As Long

'Buscamos todos los archivos del directorio Windows
archivo = Dir("c:windows*.*")

While archivo <> ""
'Mientras no sean directorios
If archivo <> "." Or archivo <> ".." Then

n = n + 1

End If

'//buscamos el siguiente archivo
archivo = Dir
Wend

'//Mostramos el resultado
MsgBox "Archivos: " & n

End Sub

espero te sirva.

www.recursosvisualbasic.com.ar