怎样判断不想要的文件并删除解决方法

怎样判断不想要的文件并删除
我需要判断出同一文件夹下是不是又部分重名的文件并删除。比如在一个文件夹aa下有n个文件，其中有abcdef1111.abc   和abcdef2222.abc两个文件，我要拿abcdef1111.abc文件和这个目录下所有的文件比较，假如有前6个字符和他相同的，如abcdef222.abc就删除掉，因该怎么   写。谢谢大虾们赐教。
我要是把文件名读入一个临时表，还是上边的问题因该怎么写。好像可以用scan   for语句，可以我写不出来，谢谢大哥们指点一下。

------解决方案--------------------------------------------------------
create table temp (filename c(50),bz I)
gnDbcnumber = ADIR(gaDatabase, '*.abc ')
FOR nCount = 1 TO gnDbcnumber
insert into temp (filename) values (gaDatabase(nCount,1))
ENDFOR
copy to temp1
scan
lnrecno=recno()
lcFileName=alltrim(filename)
update temp1 set bz=1 where left(alltrim(filename),6)==left(alltrim(lcFileName),6) and recno()> lnrecno
endscan
select temp1
scan
if bz=1
delete file (filename)
endif
endscan