Post by Gabrielnecesito ayuda referente a contar los archivos existentes en una
carpetra especifica.
Hola, Gabriel:
Si no deseas utilizar funciones de la API de Windows, usar controles, o
hacer referencia a cualquier biblioteca ActiveX, quizás te pueda servir la
siguiente función de usuario:
Private Function GetFiles(ByVal folder As String) As Long
Dim file As String
Dim n As Long
' Obtenemos el primer archivo
file = Dir(folder, vbArchive + vbHidden + _
vbNormal + vbReadOnly + vbSystem)
Do While file <> ""
' Contador de archivos
n = n + 1
' Obtenemos los siguientes archivos
file = Dir
Loop
' Devolvemos el número de archivos
GetFiles = n
End Function
Si deseas conocer el número de todos los archivos, simplemente llamarías a
la función de la siguiente manera:
Dim n As Long
n = GetFiles("C:\Windows\*.*")
MsgBox "Número de archivos: " & CStr(n)
Si por el contrario, quieres conocer sólo el número de archivos de una
cierta extensión, a la ruta de la carpeta, le añadirías la extensión de los
archivos cuyo número deseas conocer:
n = GetFiles("C:\Windows\*.txt)
Un saludo
--
Enrique Martínez
[MS MVP - VB]
Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.