31.01.2020, 07:06
|
Прохожий
|
|
Регистрация: 18.01.2018
Сообщения: 30
Версия Delphi: 7, XE5
Репутация: 10
|
|
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
i:=1;
while FileExists((Format('C:\test\копия\test%d.xls',[i]))) do inc(i);
CopyFile('С:\temp\test.xls', PAnsiChar(Format('C:\test\копия\test%d.xls',[i])), true);
end;
|
Рабочая версия.
|