Lunes 23 de Diciembre de 2024, 02:38
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Contar Archivos
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Contar Archivos (Leído 1297 veces)
monkytrox
Miembro activo
Mensajes: 42
Contar Archivos
«
en:
Jueves 9 de Febrero de 2006, 16:32 »
0
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
Tweet
cpmario
Miembro HIPER activo
Mensajes: 629
Re: Contar Archivos
«
Respuesta #1 en:
Jueves 9 de Febrero de 2006, 20:17 »
0
Para probar este código colócalo en una una forma con botón command
Código: Text
Option Explicit
Private Sub Command1_Click()
MsgBox "Número de archivos: " & CountFiles("C:\WINDOWS\system32")
End Sub
Function CountFiles(strDir As String) As Long
Dim strSpec As String
Dim strFile As String
Dim lngNumOfFiles As Long
If strDir <> "" Then
strSpec = strDir + "\*.*"
strFile = Dir(strSpec, vbSystem + vbHidden + vbReadOnly + vbArchive)
lngNumOfFiles = 1
Do While strFile <> ""
strFile = Dir
lngNumOfFiles = lngNumOfFiles + 1
Loop
CountFiles = lngNumOfFiles - 1
End If
End Function
monkytrox
Miembro activo
Mensajes: 42
Re: Contar Archivos
«
Respuesta #2 en:
Jueves 9 de Febrero de 2006, 22:36 »
0
Muchas gracias por tu ayuda !!
salu2
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Visual Basic 6.0 e inferiores
(Moderador:
F_Tanori
) »
Contar Archivos