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

← →
Tort (2006-01-16 00:09) [0]

Господа! Посоветуйте пожалуйста!

//добавим в список имена файлов
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Listbox1.Items.Add(ExtractFilename(opendialog1.FileName)); end;
end;

//скопируем эти файлы в указанный каталог
procedure TForm1.Button4Click(Sender: TObject);
begin
if windows.CopyFile(ExtractFileName(opendialog1.FileName,"C:\test\new.txt",true) then
Showmessage("OK")else
Showmessage("Error");
end;

Знаю, что можно сделать так
if windows.copyfile("C:\new.txt",C:\testdir\new.txt, true) then showmessage("ok");

Но мне нужно указать (перечислить ?) имена файлов в списке.
Вот на этом месте я в тупике, компилятор ругается, мол батюшка, не достаточно параметров.

Мастера, подскажите пожалуйста, как можно обойти такой облом?

← →
Плохиш © (2006-01-16 01:21) [1]

> подскажите пожалуйста, как можно обойти такой облом?

Чтение справки/книжек должно помочь.

← →
tort (2006-01-16 11:43) [2]

Я понимаю, что книжки и справки помогают, но там для профи все описано, я а чел с только что начинающей набирать мозги головой. Начинающий в общем. И понимать трудно, но ужасно интересно! Вот так!

← →
Гаврила © (2006-01-16 12:32) [3]

> if
> windows.CopyFile(ExtractFileName(opendialog1.FileName,

1.Надо указать полный путь, а не только имя файла
2. значение надо брать из Listbox1 а не из opendialog1.FileName
3.нужно типизировать под PCHar (или использовать функцию не из windows.pas)
4 для групповой операции надо организовать цикл по Listbox1.Items

← →
tort (2006-01-16 20:26) [4]

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

Друзья, я хочу продолжить разговор на тему копирования файлов.
Немного почитав книжки, разобрался тока в этом, посмотрите пожалуйста, в чем ошибка.
Первая строка - ясна как небо.
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");

var S: string; I: Integer; begin S := ListBox1.Items[I]; end;

PS: согласен с [1]. И ввообще вопрос уже не про копирование...

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

И где вопрос?

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