Перемещение файлов с помощью SHFileOperation...

← →
Брат © (2002-11-14 10:57) [0]

Я пытаюсь переместить все файлы из одной папки в другую.
Написал следующую процедуру:
...
procedure TfrmMain.MoveFiles(DirFrom, DirTo : String);
var FileOp : TSHFileOpStruct;
begin
With Fileop do
begin
Wnd:=Handle;
wFunc:=FO_MOVE;
pFrom:=PChar(DirFrom);
pTo:=PChar(DirTo);
fFlags:=FOF_NOCONFIRMATION+
FOF_FILESONLY+FOF_MULTIDESTFILES;
fAnyOperationsAborted:=false;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
SHFileOperation(FileOp);
end;
....
Выдает ошибку... может быть что-то неправильно в этом коде?

← →
Брат © (2002-11-14 11:17) [1]

Братья, памагите!!!

← →
Song © (2002-11-14 11:21) [2]

Ну ты молодец, а мы телепаты по-твоему? Ну скажи, откуда мы знаем что у тебя за ошибка выдаётся?

← →
Брат © (2002-11-14 11:26) [3]

Ошибка такая: "Не удается переместить файл. Не удается произвести чтение из файла или с диска."
Что это может быть?

← →
KoluChi © (2002-11-14 11:40) [4]

Все просто:
pFrom:=PChar(DirFrom + #0); pTo:=PChar(DirTo + #0);

← →
Брат © (2002-11-14 11:42) [5]

> Все просто:
> pFrom:=PChar(DirFrom + #0);
> pTo:=PChar(DirTo + #0);
>

СПАСИБО!!!
А почему так?

>А почему так?
честно говоря не знаю :(

> честно говоря не знаю :(

все равно, СПАСИБА!!! ;-)

Перемещение файлов с помощью SHFileOperation... Найти похожие ветки