各位大哥好，我是新手，现在遇到一个问题，需要遍历目录下的所有DBF文件set collate to 'MACHINE'并重建索引。因目录下的DBF文件太多，有的有索引有的没有，所以需要各位帮助下，谢谢。

adir()

提供一个思路吧，代码不写了，没时间写。
用 Adir()获得 文件夹下的文件名称 到一个数组，再对内容进行遍历：
 如果某个文件名以DBF结尾，则看数组中有无与其同名的以CDX结尾的文件。
 （要点，用JUSTEXT(文件名) 取得文件后缀名；用JUSTstem(文件名) 取得文件主干名 ）
  如果有同名的CDX文件，说明有索引文件了，跳过。
  如果没有，则打开DBF，建立索引，
  继续循环到结束。

说明 ：JUSTEXT()和 JUSTstem()好像9.0的才支持。