Главная страница
    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
Время: 0.037 c
14-1105451620
syte_ser78
2005-01-11 16:53
2005.01.30
Хочу избежать службу в армии


14-1105403008
Поручик
2005-01-11 03:23
2005.01.30
Как пить?


1-1104865842
SelloutS
2005-01-04 22:10
2005.01.30
как узнать битрейт и время песни которая сейчас играет в винампе


8-1093414139
Axer
2004-08-25 10:08
2005.01.30
Как получить данные из звуковой карты?


1-1106215634
Tria
2005-01-20 13:07
2005.01.30
Как сделать, чтобы в главном MDI окне не появлялись полосы прокру





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский