>m1 = DateTime() >oCollection = NEWOBJECT([Collection]) >lcFileName = SYS(2000, [........]) >DO WHILE NOT EMPTY(lcFileName) > oCollection.Add(lcFileName,JUSTFNAME(lcFileName)) > lcFileName = SYS(2000, [........],1) >ENDDO >? DATETIME() - m1 > >*** Test fro Filer here >I see. Well, using collection may be a culprit and that's why it's slower.