同志们，在ROCK斑竹的英明指引下，在我们5中央，D务院的务实领导下，在我们广大5DAW网友的无
私支援下，我版虚竹同志。。。。。。好了，好了，别砸卷心菜了，我发帖了》》》》
==========================================
我是这样写的源程序，实验了N次后才敢发了上来，同时提供实例链接:
http://haixin.diy.163.com/img/houzhui.a6p取得文件的列表
--FileString:=Catalog(FileLocation,"F")
--取得总的文件数
FileNumber:=LineCount(FileString,Return)
--初始化后缀记录变量
FileFixs:=""
--取得所有的后缀字符串
repeat with i:=1 to FileNumber
FileNames:=GetLine(FileString,i)
lastindex:=CharCount(FileNames)
FileFix:=SubStr(FileNames,RFind(".",FileNames)+1,CharCount(FileNames))
FileFixs:=FileFixs^FileFix^Return
end repeat
--筛选后缀，使后缀不重复显示
FixsNumber:=LineCount(FileFixs)
repeat with k:=0 to FixsNumber
str:=GetLine(FileFixs,k)
str3:=str3^str
str1:=GetLine(FileFixs,k+1)
if Find(str1 ,str3)=0 then
fixs:=fixs^str1^Return
end if
end repeat
