网上找到的代码
SELECT WJJ
DELETE ALL
*存放文件夹名称的表。
 
lcPath1=getdir("","请在下面选择文件夹：","选择文件夹",0
SET DEFAULT TO &lcPath1      &&.指定默认的驱动器、目录或文件夹。
KZ=ALLTRIM()
   KZM=lcPath1+"*.*"
   WJS1 = ADIR(SZ1,KZM,"D",0)
   *WJS1 = ADIR(SZ1,"*.*","D",1)
 
IF WJS1 = 0
   WAIT WINDOW "所选目录中没有文件!"
   RETURN
ELSE
  SELECT WJM
  *存放文件名的表。
  DELETE ALL
 
  JLS=ALEN(SZ1,1)
  FOR I=1 TO JLS
   SELECT WJM
    WJMH=SZ1(I,1)
    SXH=SZ1(I,5)
    *A=RIGHT(KZM,3)
    IF LOWER(KZ) $ WJMH OR UPPER(KZ) $ WJMH
        APPEND BLANK
        REPLACE WJM WITH SZ1(I,1),LJ WITH lcPath1,SX WITH SZ1(I,5)
    ENDIF   
    IF ("D" $ SXH)
      SELECT WJJ
      INSERT INTO WJJ(WJJM,RL,LJ)  VALUES (SZ1(I,1),SZ1(I,2),lcPath1+SZ1(I,1)+"\")
    ENDIF   
  ENDFOR   
ENDIF

SELECT WJJ
IF RECCOUNT()#0
GO TOP
I=1
DO WHILE !EOF()
   LJ0=ALLTRIM(lj)+"*.*"
   LJH=ALLTRIM(lj)
   JLH=RECNO()
   IF LEN(ALLTRIM(WJJM))>2
      *SET DEFAULT TO  &LJH
      WJS2 = ADIR(SZ2,LJ0,"D",1)   
     
      JLS=ALEN(SZ2,1)
      FOR J=1 TO JLS
      
        WJMH=SZ2(J,1)
        SXH=SZ2(J,5)
        IF LOWER(KZ) $ WJMH OR UPPER(KZ) $ WJMH
          SELECT WJM
           APPEND BLANK
           REPLACE WJM WITH SZ2(J,1),LJ WITH ljh,SX WITH SZ2(J,5)
           SELECT WJJ
        ENDIF
      
        IF "D" $ SXH
          SELECT WJJ
          INSERT INTO WJJ(WJJM,RL,LJ)  VALUES (SZ2(J,1),SZ2(J,2),LJH+SZ2(J,1)+"\")
                 
        ENDIF
                  
      ENDFOR
     
    ENDIF
    SELECT WJJ
    GO JLH
    I=I+1
    SKIP 1  
 
ENDDO  
ENDIF  
SELECT WJM
INDEX ON WJM TO WJM
GO TOP
 
THISFORM.REFRESH
要先建立WJJ和WJM两个表，求帮看看这两个表要怎么设置。

补充：
    这是在VFP中应用ADIR函数一例。使用它，可获得指定文件夹及其下级目录中，指定格式的文件名称及路径。
    运行前，必须创建两个表WJJ和WJM。WJJ用来存放下级文件夹的名称及路径。WJM用来存放指定格式的文件名称及路径。
    并利用获得指定的文件扩展名。

建表的方式方法很多，最常见的就是在VFP平台手工建表，有向导帮助，这可是最基本的操作技能，任何一本入门教材都会有介绍的。

我的意思是说这两个表的数据类型应该怎么设置啊，一直提示数据类型不匹配

还有那个SZ1(I,1)，表单名称后面加括号又是个什么意思？百度也查不到

弄明白ADIR()函数中数组返回值的函意，就知道如何创建原始表了。

Wjm.DBF 结构
Wjm C(50)
Lj  C(50)
Sx  C(10)

Wjj.DBF 结构
Wjjm C(20)
RL   N(10) 或者 I 整型
Lj   C(50)

试试

多看看vfp基础部分和帮助文件