Копировать каталог

← →
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. Действительно Дмитриев развелось... Пора отстрелевать.
Ты не представляешь насколько ты прав!!! :)

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

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

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

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