Показать сообщение отдельно
  #1  
Старый 27.01.2020, 09:43
Vansha Vansha вне форума
Прохожий
 
Регистрация: 18.01.2018
Сообщения: 30
Версия Delphi: 7, XE5
Репутация: 10
По умолчанию Копия файла с новым именем

Здравствуйте.
Нужна помощь.
Как можно осуществить копирование файла, но с каждым разом с новым именем. Анализировала программа каждое имя и присваивала новое т.е. test1, test2, test3 и т.д.

Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if CopyFile('C:\test\test.xls', 'D:\test\test1.xls', true) then
ShowMessage('файл скопирован.')
else
ShowMessage('ошибка копирования.');
 end;
Ответить с цитированием