Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 2.297 c
1-1105675632
DDDeN
2005-01-14 07:07
2005.01.30
Как добавить картинку в StringList?


10-1081908882
Tollya
2004-04-14 06:14
2005.01.30
Как сохранить в Exel


3-1104145015
DimaK
2004-12-27 13:56
2005.01.30
Backup базы Firebird


1-1105828043
Tretjakov_Oleg
2005-01-16 01:27
2005.01.30
Проше переведите на Pascal ! Очень надо.


1-1105652082
chir
2005-01-14 00:34
2005.01.30
Имитация нажатия кнопки при запуске приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский