Копирование файлов - Общие вопросы Delphi

Alex711 · 31.03.2020, 14:41

Здравствуйте, на форме есть ListBox в котором полные пути к файлам и DirectoryListBox к котором выбираю куда копировать файлы, пробую так:

Код:

procedure TForm1.Button1Click(Sender: TObject); 
  var
  i : integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  if Copyfile(PAnsiChar(ListBox1.Items.Strings[i]),PChar(DirectoryListBox.Directory),false) then
  ShowMessage('Ôàéë óñïåøíî ñêîïèðîâàíà.')
  else
  ShowMessage('Îøèáêà ïðè êîïèðîâàíèè Ôàéëà.');
end;

Не получается, подскажите что не так.

northener · 31.03.2020, 15:06

Второй параметр Copyfile это новое полное имя файла, а не директория куда файл копировать.

31.03.2020, 14:41	#1
Alex711 Пользователь Регистрация: 21.09.2018 Сообщений: 99	Копирование файлов Здравствуйте, на форме есть ListBox в котором полные пути к файлам и DirectoryListBox к котором выбираю куда копировать файлы, пробую так: Код: `procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i:=0 to ListBox1.Items.Count-1 do if Copyfile(PAnsiChar(ListBox1.Items.Strings[i]),PChar(DirectoryListBox.Directory),false) then ShowMessage('Ôàéë óñïåøíî ñêîïèðîâàíà.') else ShowMessage('Îøèáêà ïðè êîïèðîâàíèè Ôàéëà.'); end;` Не получается, подскажите что не так.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
копирование файлов	Konstantin_ua	БД в Delphi	2	19.12.2013 17:29
Копирование файлов	xAVATARx	Мультимедиа в Delphi	5	08.06.2012 14:08
Копирование файлов	Demien	Общие вопросы Delphi	9	26.03.2010 08:52
HELP. копирование файлов	DLev2	Общие вопросы Delphi	1	27.09.2009 11:46
Копирование файлов	critical	Microsoft Office Excel	4	02.07.2009 14:45

31.03.2020, 15:06	#2
northener ПШП Участник клуба Регистрация: 15.07.2013 Сообщений: 1,869	Второй параметр Copyfile это новое полное имя файла, а не директория куда файл копировать.