Скачать: CL | DM;

Перемещение файлов с помощью 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);
>

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

---

← →
KoluChi ©   (2002-11-14 11:51) [6]

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c