SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: monkytrox en Jueves 9 de Febrero de 2006, 16:32

Título: Contar Archivos
Publicado por: monkytrox en Jueves 9 de Febrero de 2006, 16:32
Hola como estan.

Alguien me podria decir como hacer para saber la cantidad de archivos que tengo dentro de un directorio determinado ?

muchas gracias

monkytrox
Título: Re: Contar Archivos
Publicado por: cpmario en Jueves 9 de Febrero de 2006, 20:17
Para probar este código colócalo en una una forma con botón command
Código: Text
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.     MsgBox "Número de archivos: " & CountFiles("C:\WINDOWS\system32")
  5. End Sub
  6.  
  7. Function CountFiles(strDir As String) As Long
  8.   Dim strSpec As String
  9.   Dim strFile As String
  10.   Dim lngNumOfFiles As Long
  11.  
  12.    If strDir <> "" Then
  13.       strSpec = strDir + "\*.*"
  14.       strFile = Dir(strSpec, vbSystem + vbHidden + vbReadOnly + vbArchive)
  15.       lngNumOfFiles = 1
  16.  
  17.       Do While strFile <> ""
  18.          strFile = Dir
  19.          lngNumOfFiles = lngNumOfFiles + 1
  20.       Loop
  21.  
  22.       CountFiles = lngNumOfFiles - 1
  23.     End If
  24. End Function
  25.  
  26.  
:comp:
Título: Re: Contar Archivos
Publicado por: monkytrox en Jueves 9 de Febrero de 2006, 22:36
Muchas gracias por tu ayuda !!

salu2