Anónimo
Contar número de archivos que hay en un directorio
Estoy haciendo un aplicación en vb y necesito contar el numero de archivos que existen en un directorio. ¿Cómo puedo hacerlo?
1 respuesta
Respuesta de juanpabl0
1
Este código te sirve para contar el número de archivos en un directorio específico:
Dim Archivo As String
Dim Total As Integer
Archivo = Dir("C:\Documents and Settings\Usuario\Mis documentos\*.*")
While Archivo <> ""
Total = Total + 1
Archivo = Dir
Wend
MsgBox Total & " archivos encontrados"
Puedes modificar el código para que te encuentre los archivos de una extensión específica sólo cambiando el "*.*" por la que necesites [Por ejemplo, para contar todos los archivos de Word 2003 sería: *.doc].
Dim Archivo As String
Dim Total As Integer
Archivo = Dir("C:\Documents and Settings\Usuario\Mis documentos\*.*")
While Archivo <> ""
Total = Total + 1
Archivo = Dir
Wend
MsgBox Total & " archivos encontrados"
Puedes modificar el código para que te encuentre los archivos de una extensión específica sólo cambiando el "*.*" por la que necesites [Por ejemplo, para contar todos los archivos de Word 2003 sería: *.doc].