[Sagat]

весь код

Код:

Var
fileDate: Integer;
      fileDate1   : Integer;

         searchResult : TSearchRec;
   frombuf, tobuf: Array [0..128] of Char;
  fileName   : string;
  SR : TSearchRec;

 S,a:String ;

begin


   if FindFirst(Edit1.text+'\*.*', faAnyFile, searchResult) = 0 then
repeat
if fileDate > -1 then
      if fileDate1 > -1 then
                 if filedate >filedate1
                 then
 CopyFile(Pchar(Edit1.Text+'\'+searchResult.Name), Pchar(Edit2.Text+'\'+searchResult.Name),true)
 

        
                
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);

lmikle: Последнее китайское предупреждение. Быстро учимся оформлять посты (использовать правильные теги)!