08/02/2006, 12:42
|
 | | | Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| Puedes declarar un Sumador por ejemplo
'A nivel de formulario
Private Sum as double
'En el procediemiento getfiles
Private Sub GetFiles(ByVal P As String)
Dim F As File
For Each F In Fso.GetFolder(P).Files
If (F.Size / 1024)+ sum <= 5120 Then '5120 = 5mb
List1.AddItem F.ParentFolder & F.Name & chr(9) & (f.size /1024) & " KB"
sum = sum + (f.size/1204)
End If
DoEvents
Next F
End Sub |