Процедура поиска и копирования

[frodor999]

Нужна процедура которая в папке C:\Folder находит все файлы *.abc и копирует их в папку c:\temp. Помогите

[rockedit]

Держи. По какому нить событию пропиши этот код.

var
str: string;
error : LongBool;
SearchRec: TsearchRec;
begin
 if FindFirst('C:\Folder\*.abc',faAnyFile,SearchRec) <> INVALID_HANDLE_VALUE then
   repeat
     Str:=SearchRec.Name;
     if (str <> '.') and (str<>'..') then
         CopyFile(PChar('C:\Folder\'+ str),PChar('c:\temp\' + str),error);
   until(FindNext(SearchRec)<>0);
   FindClose(SearchRec);

end;