>Hola a todos, quisiera llenar un listbox, con los nombres de archivos contenidos en un directorio de windows, es posible esto en VFP, alguien puede orientarme de como lograrlo ?...
>Como siempre mil gracias ....
Para darte una idea solamente puedes poner este codigo en el init de un listbox:
local laFiles(1), lnFiles, i
with thisform
lnFiles = adir(laFiles, 'C:\FOX\*.*')
.AddProperty('aFiles(1)')
dimension .aFiles(lnFiles)
for i=1 to lnFiles
.aFiles[i] = justfname(laFiles[i, 1])
next i
endwith
with this
if lnFiles >= 1
.RowSource = 'thisform.aFiles'
.RowSourceType = 5
.Sorted = .t.
.ListIndex = 1
endif
endwith
Como veraz solo pongo el nombre en el combo, pero si quieres puedes agregarle la fecha, tamaño etc fácilmente
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges