Копирование файлов

[matus]

Здравствуйте! Подскажите, пожалуйста, как можно скопировать файлы, выбранные пользователем на FileListBox (с помощью функций MultiSelect) в определённую директорию. Я вот пытаюсь воспользоваться CopyFile(PChar(FileListBox1),'имя нужной директории',true), но пока безуспешно. Просто это достаточно традиционная функция во многих программах, вот я и подумала, может кто сталкивался с этим? Спасибо за внимание.

[B_N]

В чём безуспешность? Уж не в том ли, что не

CopyFile(PChar(FileListBox1),'имя нужной директории',true);

, а

CopyFile(PChar(FileListBox1),'имя нужной директории'+'новое имя файла',true);

?

[matus]

Нет, так не получается...имена должны быть те же самые, а вот имя директории, куда копировать выбранные файлы, задаёт пользователь, вот такая ситуация

[B_N]

Сообщение от matus

Нет, так не получается...имена должны быть те же самые, а вот имя директории, куда копировать выбранные файлы, задаёт пользователь, вот такая ситуация

В функцию CopyFile нужно передавать полные пути файлов, независимо от того, такие же они или нет, а не просто 'имя нужной директории'.

[matus]

Я понимаю, но увы, ничего не копируется, просто папка остаётся пуста...у меня подозрение, что просто такое копирование осуществляется вообще другим способом. Спасибо за ответы

[B_N]

Сообщение от matus

Я понимаю, но увы, ничего не копируется, просто папка остаётся пуста...у меня подозрение, что просто такое копирование осуществляется вообще другим способом. Спасибо за ответы

Тогда
1. Показывайте содержимое Ваших строк
2. Объявите целую переменную, скажем e : cardinal, после CopyFile ставьте строчку

e := GetLastError();

и сообщайте, чему она будет равна после неудачи.

[matus]

Получилось e=2

[B_N]

"The system cannot find the file specified." - Что и требовалось доказать. Видимо проблема вот здесь: PChar(FileListBox1). Чему равна FileListBox1?
-----------------
А еще лучше - обе строки - и откуда, и куда.

[matus]

У меня всё-таки получилось, возможно не самый рациональный путь, но делает то, что надо:
progressbar1.Position:=0;
progressbar1.Max:=FileListBox1.SelC ount;
for t:=0 to FileListBox1.Items.Count-1 do
if FileListBox1.Selected[t]=true then begin
iii:=FileListBox1.Items.Strings[t];
CopyFile(PChar(FileListBox1.Directo ry+'\'+iii),PChar('имя нужной директории'+'\'+iii),true);
progressbar1.StepBy(1);
Application.ProcessMessages;
end;
(progressbar отображает процесс копирования, данный объект расположен во вкладке Win32)

[B_N]

Чтобы прогрессбар еще лучше работал, есть CopyFileEx