>I have the code in the GotFocus of my combobox.
>
>Set Default To &prfiles
>= ADir(gnLODModelsz,ThisForm.myadjdn + '*.*')
>MessageBox(Str(ALen(gnLODModelsz)))
>ThisForm.Combo1.RowSource = "gnLODModelsz"
>Set Default to &defpath
>
>The MessageBox returns 90 but nothing is listed in combobox.

Steven,
Assuming rowsourcetype is already Array create a form property as array (In new property enter gnLODModelsz[1]) :

lnFiles= ADir(thisform.gnLODModelsz,ThisForm.myadjdn + '*.*')
MessageBox(Str(lnFiles))
with ThisForm.Combo1
	.RowSource = "thisform.gnLODModelsz"
* Try to uncomment below items
*	.ColumnCount = alen(thisform.gnLODModelsz,2)
*	.Columnwidths = '100,100,100,100,100'
*	.Numberofelements = alen(thisform.gnLODModelsz)
endwith

Cetin