20/11/2005, 12:07
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
Algo asi:
Código:
i = 0
For Each Item In oFolders.GetFolder(StrCarpeta).Files
redim preserve arrFiles(i)
arrFiles(i) = item.name
i = i + 1
Next
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |