Копировать файлы

← →
tort (2006-01-16 20:28) [0]

Всем мастерам и участникам вечер добрый!

Друзья, я хочу продолжить разговор на тему копирования файлов.
Немного почитав книжки, разобрался тока в этом, посмотрите пожалуйста, в чем ошибка.
Первая строка - ясна как небо.
if windows.CopyFile(Pchar(edit2.Text),Pchar(edit3.Text),true) then

Вторая строка - вопрос.

if windows.CopyFile(Pchar(Listbox1.items.Text),Pchar(edit1.Text),true) then
Showmessage("OK")else
Showmessage("Error");

← →
Джо © (2006-01-16 20:34) [1]

А в чем вопрос, дружище? :)

← →
tort (2006-01-16 20:39) [2]

Спасибо за отклик, дружище! Очень приятно слышать!

Джо, вопрос такой.

Есть listbox с именами файлов (и и их путями), есть Edit1.
Как можно скопировать файлы, указанные в списке в каталог, указанный в
Edit1 ?

Вот мой код.

//добавим файл
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
listbox1.Items.AddStrings(opendialog1.Files);
end;

//скопируем файл
procedure TForm1.Button4Click(Sender: TObject);
begin
if windows.CopyFile(Pchar(Listbox1.items.Text),Pchar(edit1.Text),true) then
Showmessage("OK")else
Showmessage("Error");
end;

Компилятор не ругает, но ничего не происходит, не могу скопировать?
Подскажите пожалуйста!

← →
tort (2006-01-16 20:40) [3]

Спасибо за отклик, дружище! Очень приятно слышать!

Джо, вопрос такой.

Есть listbox с именами файлов (и и их путями), есть Edit1.
Как можно скопировать файлы, указанные в списке в каталог, указанный в
Edit1 ?

Вот мой код.

//добавим файл
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
listbox1.Items.Add(opendialog1.Files);
end;

//скопируем файл
procedure TForm1.Button4Click(Sender: TObject);
begin
if windows.CopyFile(Pchar(Listbox1.items.Text),Pchar(edit1.Text),true) then
Showmessage("OK")else
Showmessage("Error");
end;

Компилятор не ругает, но ничего не происходит, не могу скопировать?
Подскажите пожалуйста!

← →
sniknik © (2006-01-16 20:58) [4]

> Компилятор не ругает, ...
procedure TForm1.Button4Click(Sender: TObject);
begin
if Win32Check(windows.CopyFile(Pchar(Listbox1.items.Text),Pchar(edit1.Text),true)) then
Showmessage("OK")else
Showmessage("Error");
end;

← →
Джо © (2006-01-16 21:14) [5]

> [3] tort (16.01.06 20:40)

1.
Или так: listbox1.Items.Add(opendialog1.FileName) — OpenDialog выбирает 1 файл
или так: listbox1.Items.AddStrings(opendialog1.Files) — OpenDialog выбирает несколько файлов

2. CopyFile — второй параметр должен задавать не папку, а имя файл (желательно, полное).

Кроме того, все файлы из списка скопировать не получится, нужно в цикле, т.е, в таком духе:

var I: Integer; OldFileName, NewFileName: string; begin for I := 0 to ListBox1.Items.Count-1 do begin OldFileName := ListBox1.Items[I]; NewFileName := Edit1.Text + PathDelim + ExtractFileName(OldFileName); if not CopyFile(PChar(OldFileName),PChar(NewFileName),False) then RaiseLastOSError; end; end;

← →
tort (2006-01-16 21:37) [7]

Джо! Спасибо большое! У меня получилось. тута прям и мысли стали свеже -ещё и инфу и файлах подкину. Спасибо!

Жаль, что я не в Москве, я б тебе литр пива поставил! Ей богу!

> [7] tort (16.01.06 21:37)
> Жаль, что я не в Москве, я б тебе литр пива поставил! Ей
> богу!

Зачем Москва, дорогой? Я в Киеве живу :)

Копировать файлы Найти похожие ветки