CopyFile. AKA Танцы с Бубном.

[NitroSki]

Всех приветствую...

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

var
opDialog : TOpenpictureDialog;
pathf:string;

begin

opdialog:=topenpicturedialog.create(self);
if opdialog.execute then
pathf:=opdialog.filename;
copyfile (pchar(pathf),pchar('E:\'),true);

Т.е. поставил выход на директорию в диск Е:\.....имя файла при этом не указал - так как хочу оставить текущее название выбранного файла.....

Подскажите как решить проблему......пошел 2й день!!!!

Заранее благодарю

Пробовал вот так

copyfile (pchar(pathf),pchar('E:\'+opdialog.filename),true);

Но конечно же ничего не получилось - т.к. FileName _ содержит в себе путь файла, притом с косыми!!!!

Вообщем еще добавлю, чтобы был понятно чего я хочу - пользователь открывает OpenDialog - выбирает картинку - нажимает ОТКРЫТЬ - и она копируется в другую папку с тем же самым именем файла.....

ПОДСКАЖИТЕ Пока я не начал разводить ритуальный огонь.... и доставать бубен

[SERG1980]

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

Пробовал вот так

copyfile (pchar(pathf),pchar('E:\'+opdialog.filename),true);

Но конечно же ничего не получилось - т.к. FileName _ содержит в себе путь файла, притом с косыми!!!!

А ктовам мешает пользоваться ф-ией ExtractFileName

copyfile (pchar(pathf),pchar('E:\'+ExtractFileName(opdialog.filename)),true);

[NitroSki]

Спасибо! Просто не знал про функцию ExtractFileName. Я НаВиЧёК

Теперь буду знать....


Заработало именно так как Вы и сказали

copyfile (pchar(pathf),pchar('E:\'+ExtractFileName(opdialog.FileName)),false);

Всем спасибо! Ритуал шаманизма отменяется