Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
ВнизПеремещение файлов с помощью 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c