Работа с файлами

← →
Igor_thief (2003-03-13 11:26) [0]

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

procedure TForm1.Button2Click(Sender: TObject);
var
Dir:string;
FOper:TSHFileOpStruct;
begin
(*Перенести данные в*)
if SelectDirectory("Выберите папку, в которую будут скопированы файлы данных:","",Dir) then
begin
FOper.pFrom:=PChar(AppPath+"File\*.*");
FOper.pTo:=PChar(Dir);
FOper.wFunc:=FO_COPY;
FOper.fFlags:=FOF_NOCONFIRMATION;
FOper.Wnd:=Handle;
if SHFileOperation(FOper)=0 then MessageDlg("Данные успешно скопированы!",mtInformation,[mbOk],0);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
Dir:string;
FOper:TSHFileOpStruct;
begin
(*Перенос данных из указанной таблицы в текущую*)
if SelectDirectory("Выберите папку, из которой будут скопированы файлы данных:","",Dir) then
begin
FOper.pFrom:=PChar(Dir+"\*.*");
FOper.pTo:=PChar(AppPath+"File");
FOper.wFunc:=FO_COPY;
FOper.Wnd:=Handle;
FOper.fFlags:=FOF_NOCONFIRMATION;
if SHFileOperation(FOper)=0 then MessageDlg("Данные успешно скопированы!",mtInformation,[mbOk],0);
end;
end;

Но при этом возникает одна проблемка. Данные копируются в папку с любым названием но назад
копируются не из любой папки. Например я скопировал данные в папку с названием Test copy, а
потом скопировал данные обратно. Все работает нормально. Но когда я назал папку Smt, то
назад данные уже не скопировались, а была создана такая ошибка:"Не удается скопировать файл.
Не удается произвести чтение йз файла или с диска.". Такие же сообщения появляются когда я
пытаюсь скопировать данные из папки, название которой начинается с цифры. Кто-то знает в чем глюк?

← →
Anatoly Podgoretsky (2003-03-13 11:30) [1]

Читаем внимательно, что такое pFrom/pTo и смотрим насколько это совпадает с тем, что у тебя.
И странно, для копирования используем функции SH а для выбора папок ограниченный SelectDirectory

← →
Igor_thief (2003-03-13 17:31) [2]

Anatoly Podgoretsky © (13.03.03 11:30)
>>И странно, для копирования используем функции SH а для выбора >>папок ограниченный SelectDirectory
Вот это очень хорошо подмечено

Работа с файлами Найти похожие ветки