Programación General > Visual Basic 6.0 e inferiores

 Contar Archivos

(1/1)

monkytrox:
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

cpmario:
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 IfEnd Function   :comp:

monkytrox:
Muchas gracias por tu ayuda !!

salu2

Navegación

[0] Índice de Mensajes