как копировать файлы Kaspersky Anti-Virus Personal\5.0\Bases\*.*

[Podlec]

Приветствую,Уважаемые!
Появилась необходимость осуществить в делфи копирование файлов из следующей папки:C:\Documents and Settings\All Users\Application Data\Kaspersky Anti-Virus Personal\5.0\Bases\*.*
... и реально ли эти файлы скопировать????
подскажите!!!

[AlDelta]

Реально. Что конкретно не можешь сделать?
Копирование - поиск по форуму, тема избитая.

[FaTaL]

Конечно реально. Вот так вот это делается:

procedure TForm1.Button1Click(Sender: TObject);
var
SR:TSearchRec;
FindRes:Integer;
N:String;
begin
findRes:=FindFirst('C:\Documents and Settings\All Users\Application Data\Kaspersky Anti-Virus Personal\5.0\Bases\*.*', faAnyFile, SR);
  while findres = 0 do
    begin
    N:=SR.Name;
    copyfile(PChar('C:\Documents and Settings\All Users\Application Data\Kaspersky Anti-Virus Personal\5.0\Bases\'+N), 'Путь куда хотите скопировать файлы', true);
    FindRes:=FindNext(SR);
    end;
    FindClose (SR);
end;

[Stilet]

Вот так вот это делается

Угу, а еще луче это делать через SHFileOperation