Visual Basic - como contar archivos de un determinada extencion

Life is soft - evento anual de software empresarial
   
Vista:

como contar archivos de un determinada extencion

Publicado por daniel grillo paco (3 intervenciones) el 04/10/2007 19:30:07
buenads deseo hacer un aplicacion en vb 6.0 que me cuente los archivos de una determinada extencion y saber cuanto pesan por ejm si tengo 100 con extencion xls saber cuanto pesan los 100 archivos me pueden ayudar soy nuevo en esto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ahi va un ejemplo ...

Publicado por Semper (25 intervenciones) el 04/10/2007 21:56:27
Pon esta SUB en un modulo .BAS ...

''''''''''''''''''''
Public Sub Cuenta_Archivos(ByVal sPath As String, ByVal sExtension As String, _
ByRef TotalArchivos As Long, ByRef TotalBytes As Long)

Dim nFile As Integer, sFile As String

If Trim(sPath) = "" Then sPath = CurDir
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"

If Trim(sExtension) = "" Then sExtension = ".*"

If Left(sExtension, 1) <> "." Then
sExtension = "." & sExtension
End If

TotalArchivos = 0: TotalBytes = 0

nFile = FreeFile
sFile = Dir(Trim(sPath) & "*" & sExtension)

Do While sFile <> ""
Open sFile For Input As nFile

TotalArchivos = TotalArchivos + 1
TotalBytes = TotalBytes + LOF(nFile)
Close nFile

sFile = Dir()
Loop

End Sub
'''''''''''''''''''

Y la llamas desde donde quieras asi ...

Dim nArchivos As Long
Dim nBytes As Long

Call Cuenta_Archivos( "C:\Mis Documentos", "*.XLS", nArchivos, nBytes )

MsgBox "Tienes " & nArchivos & " Que Pesan " & nBytes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar