我的列表框代码如下：

public yyy[1]
=adir(yyy,"*.*")
=asort(yyy)
thisform.list1.RowSourcetype=5
thisform.list1.RowSource='yyy'

列表框显示的文件名都是大写的。请教各位老师怎么能小写显示？多谢！

谢谢楼上两位老师！我按流星雨老师的代码改了我的代码如下

cd d:\vfp\turtles\photo_800
local newlist[1]
=adir(newlist,"*.*")
creat cursor listadir(sours c(200))
append from array newlist
replace all sours with lower(sours)
thisform.pageframe1.page6.pageframe1.page1.list1.RowSourcetype=2
thisform.pageframe1.page6.pageframe1.page1.list1.RowSource='listadir'
cd\vfp

但运行时提示出错 - 找不到“字段”表达式。。。麻烦老师指点下

思路我了解了，过会我再试下应该问题不大。非常感谢！