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 endwithComo veraz solo pongo el nombre en el combo, pero si quieres puedes agregarle la fecha, tamaño etc fácilmente