FORM1.INIT
*-------------------------------------------------------------------
原路径=SYS(5)+CURDIR()
查找路径="F:\YYRJ\"
SET DEFAULT TO (查找路径)
CREATE CURSOR TABNAME (文件名 C(100),文件大小 N(10),修改日期 D,修改时间 C(10),文件属性 C(10))
FOR I = 1 TO ADIR(AFILES,"*.XLS")
    INSERT INTO TABNAME VALUES (查找路径+AFILES(I,1),AFILES(I,2),AFILES(I,3),AFILES(I,4),AFILES(I,5))
ENDFOR
WITH THISFORM.COMBO1
     .HEIGHT=28
     .WIDTH=200
     .ROWSOURCE="TABNAME.文件名"
     .ROWSOURCETYPE=6
ENDWITH
SET DEFAULT TO (原路径)