С копированием файла!

@Letychi · Регистрация: 15.02.2011

Author24 — интернет-сервис помощи студентам

Привет всем!!!

И снова я нуждаюсь в помощи!!(((

Есть такая функция которой я пользуюсь, копирую файлы!
Вот она!

procedure TForm2.Button4Click(Sender: TObject);
begin
if CopyFile(PChar(OpenDialog1.FileName ),PChar('D:\DB_KP_DP\Data\DP\'+maskedit1.text),true) then
begin
ShowMessage('Файл успешно внесён!');
end;
end;

Надо сделать так чтоб, при копировании файла с таким же именем что уже имеется в папке этот файл не копировался, и выходило сообщение что файл с таким именем уже существует!!! Сообщение получается выводить, а вот чтоб файл не копировался не получается!!

Подскажите как это можно замутить!!!!!! ПлиЗ!!

Комментарий модератора

А БД здесь при чем?

@new_in_net · 28.03.2011, 18:54

Используйте функцию FileExists

Delphi

procedure TForm2.Button4Click(Sender: TObject);
begin
if FileExists('D:\DB_KP_DP\Data\DP\'+maskedit1.text) then
begin
  ShowMessage('файл с таким именем уже существует!');
  exit;
end;
 
if CopyFile(PChar(OpenDialog1.FileName ),PChar('D:\DB_KP_DP\Data\DP\'+maskedit1.text),true) then
begin
  ShowMessage('Файл успешно внесён!');
end;
end;

@Letychi · 29.03.2011, 10:39 **[ТС]**

Благодарю за помощь!!!!

@Letychi 0 / 0 / 0 Регистрация: 15.02.2011 Сообщений: 52
	29.03.2011, 10:39 [ТС]	3
	Благодарю за помощь!!!! 0

С копированием файла!

Решение