Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Obtener nombres de archivo del dir...
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00811719
Message ID:
00811724
Views:
12
>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])  && solo el nombre, sin path
	next i
endwith
with this
	if lnFiles >= 1
		.RowSource = 'thisform.aFiles'
		.RowSourceType = 5	&& Array
		.Sorted = .t.
*		.Style = 2			&& Listbox
		.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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform