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

Копировать каталог   Найти похожие ветки 

← →
DimDim ©   (2005-01-16 13:09) [0]

Уважаемые Мастера, как скопировать весь каталог (с подкаталогами).
Эта тема уже встречалась, но пока небыло необходимости - не обратил внимание.
Хоть ссылку дайте!

---

← →
Fay ©   (2005-01-16 13:19) [1]

Ищи по форуму.

---

← →
begin...end ©   (2005-01-16 13:28) [2]

> DimDim ©   (16.01.05 13:09)

uses ShellAPI;
var
 Structure: TSHFileOpStruct;
 FromPath, ToPath: String;
begin
 FromPath := ...;
 ToPath := ...;
 ZeroMemory(@Structure, SizeOf(Structure));
 Structure.wFunc := FO_COPY;
 Structure.fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
 Structure.pFrom := PChar(FromPath + #0);
 Structure.pTo := PChar(ToPath + #0);
 SHFileOperation(Structure)
end.

P.S. Мне кажется, или среди программистов имя Дмитрий встречается очень часто?

---

← →
DimDim ©   (2005-01-16 22:02) [3]

Большое спасибо. Работает.
Вот только одна маленькая неприятность: при копировании файлов с CD ставит атрибуты файлов "Только для чтения", а мне они нужны с полным доступом.
Как это обойти? Заранее спасибо!

P.S. Действительно Дмитриев развелось...  Пора отстрелевать.

---

← →
Kerk ©   (2005-01-16 22:03) [4]

DimDim ©   (16.01.05 22:02) [3]
P.S. Действительно Дмитриев развелось...  Пора отстрелевать.
Ты не представляешь насколько ты прав!!! :)

---

← →
begin...end ©   (2005-01-16 22:07) [5]

> DimDim ©   (16.01.05 22:02) [3]

Думаю, потом придётся вручную устанавливать атрибуты скопированных файлов с помощью SetFileAttributes.

---

← →
DimDim ©   (2005-01-16 22:24) [6]

Ну, тогда проще копировать каждый файл по отдельности. Тогда хоть атрибуты файлов сохраняются.

---

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

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



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