Поиск файла и копирование с заменой

[tarakan1983]

Подскажите как реализовать следующее:
Есть 2 папки А и В. в папке А - 250 файлов, в папке В - 100 файлов, нужно взять имя первого файла в каталоге В найти такой же в каталоге А и скопировать из А в В с заменой, затем вотрой, третий и т.д. и так перебрать и скопировать с заменой все 100 файлов каталога В.

[Grag]

Язык программирования???

[tarakan1983]

Delphi 7!

[Grag]

Использование в программе сторонних компонентов допустимо???

[MaxNik2009]

Ищешь через FindFirst(обсуждалось много раз) свои 100 файлов, и сохраняешь в TStringList имя файла. потом

for i:= 0 to YorStringlist.count -1 do
begin
  if FileExists('ПутьКПапкеB' + YorStringlist[i]) then // если файл существует
    CopyFile('ПутьКПапкеB' + YorStringlist[i],'ПутьКПапкеA' + YorStringlist[i],false);
end;

[Grag]

Только через FindFirst и FindNext, если уж быть точным... Вот в связи с этим я и спрашивал про сторонние компоненты... С применением оных поиск во много раз упрощается...

[tarakan1983]

Сообщение от Grag

Использование в программе сторонних компонентов допустимо???

Конечно!
MaxNik2009, извеняюсь, а откуда мне получить YorStringlist?

[MaxNik2009]

Сообщение от tarakan1983

извеняюсь, а откуда мне получить YorStringlist?

var
  YorStringlist: TStringList;
begin
    YorStringlist:= TStringList.Create;
    try
      .................................. //обрабатываешь свои данные
    finally
      YorStringlist.Free;
    end;
end;

[Grag]

Ну, тогда тебе нужно примерно, то что я делал когда-то давно... Видно на скрине... Использовал сторонний компонент FindFile...Screenshot - 29.04.jpg

[tarakan1983]

Сообщение от MaxNik2009

Ищешь через FindFirst(обсуждалось много раз) свои 100 файлов, и сохраняешь в TStringList имя файла. потом

for i:= 0 to YorStringlist.count -1 do
begin
  if FileExists('ПутьКПапкеB' + YorStringlist[i]) then // если файл существует
    CopyFile('ПутьКПапкеB' + YorStringlist[i],'ПутьКПапкеA' + YorStringlist[i],false);
end;

Ругается на вторую строку

CopyFile('ПутьКПапкеB' + YorStringlist[i],'ПутьКПапкеA' + YorStringlist

Incompatible types: 'String' and 'PAnsiChar'
Не пойму чем ему типы не нравяться?