Текущий архив: 2005.01.30;
Скачать: 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 вся ветка
Текущий архив: 2005.01.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.065 c
