,关于提取文件列表的有关问题

求助,关于提取文件列表的问题
各位大哥,我想完成以下任务,提取出d:\rr文件夹下所有f打头的文件名到一个表中,因该怎么写,谢谢了

------解决方案--------------------------------------------------------
set defa to d:\rr
create table test (filename c(50))
gnDbcnumber = ADIR(gaDatabase, 'f*.* ')
FOR nCount = 1 TO gnDbcnumber
insert into test (filename) values (gaDatabase(nCount,1))
ENDFOR
brow