копирование текстовых файлов

[teacher]

Доброе время суток, форумчане.
Все текстовые файлы *.txt переписываются из одного каталога в другой.
Допустим, в каталоге-приёмнике уже есть несколько текстовых файлов с такими же именами, как в каталоге исходнике. Для запроса на перезапись использовал функцию MessageDlg (только кнопки Yes и No для 1 файла). Как сделать так, чтобы Delphi по нажатию кнопки YesToAll делала перезапись сразу всех файлов, а по нажатию NoToAll - создавала новые файлы с именем типа копия+имя исходного файла?
Заранее спасибо.

[Mitron]

для одного файла

if OpenDialog1.Execute then
if FileExists(OpenDialog1.FileName)then
  Memo1.Lines.SaveToFile('копия_'+OpenDialog1.FileName);

[teacher]

В программе не используются TMemo или TOpenDialog.
Компоненты: DriveComboBox1, DriveComboBox2, DirectoryListBox1,
DirectoryListBox2, FileListBox1, FileListBox2, Button1.
Исходник:
procedure Copy_File(name_of_file:string; source_dir, dest_dir:string);
var tmp:TStringList;
begin
tmp:=TStringList.Create;
tmp.LoadFromFile(source_dir+'\'+nam e_of_file);
tmp.SaveToFile(dest_dir+'\'+name_of _file);
tmp.Free;
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
DirectoryListBox1.Drive:=DriveCombo Box1.Drive;
end;

procedure TForm1.DirectoryListBox1Change(Send er: TObject);
begin
FileListBox1.Directory:=DirectoryLi stBox1.Directory;
FileListBox1.Drive:=DriveComboBox1. Drive;
end;

procedure TForm1.DriveComboBox2Change(Sender: TObject);
begin
DirectoryListBox2.Drive:=DriveCombo Box2.Drive;
end;

procedure TForm1.DirectoryListBox2Change(Send er: TObject);
begin
FileListBox2.Directory:=DirectoryLi stBox2.Directory;
FileListBox2.Drive:=DriveComboBox2. Drive;
end;

procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
begin
if FindFirst(FileListBox1.Directory+'\ '+’*.txt’, faAnyFile,sr)=0
then begin
repeat
if FileExists(FileListBox2.Directory+' \'+sr.Name)
then begin
if MessageDlg('Файл '+sr. Name+
' уже существует.Перезаписать его?',
mtConfirmation,[mbYes, mbNo],0)=mrYes
then Copy_File(sr.Name,
FileListBox1.Directory, FileListBox2.Directory)
else Copy_File('Копия '+sr.Name,
FileListBox1.Directory, FileListBox2.Directory);
end
else Copy_File (sr.Name, FileListBox1.Directory, FileListBox2.Directory);
FileListBox2.Update;
until FindNext(sr)<>0;
end;
FindClose(sr);
end;

[Air]

FileExists(FileName) - проверка
CopyFile(OldFile,NewFile,Replace) - копирование
OldFile - прежнее расположение
NewFile - новое расположение
Replace - (True,False) разрешить/запретить замену если файл сушествует.

Юзай!

[mihali4]

Открываем хэлп и изучаем 2 функции для копирования файлов:
1. CopyFile(LPCTSTR lpszExistingFile, LPCTSTR lpszNewFile, BOOL fFailIfExists)
2. CopyFileEx( LPCWSTR lpExistingFileName, // pointer to name of an existing file
LPCWSTR lpNewFileName, // pointer to filename to copy to
LPPROGRESS_ROUTINE lpProgressRoutine, // pointer to the callback function
LPVOID lpData, // to be passed to the callback function
LPBOOL pbCancel, // flag that can be used to cancel the operation
DWORD dwCopyFlags // flags that specify how the file is copied
);
Все варианты в них предусмотрены.