| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Коприрование папки! [D7]

biver64 ©   (2008-08-30 15:25:00) 

подскажите пожалуста как скопировать папку! Нужен самый простой способ!

---

{RASkov}   (2008-08-31 11:14:00) [1]

> [5] Leonid Troyanovsky ©   (31.08.08 09:22)

Кстати, да.... признаюсь, есть такое. Но и моя тезка права... в [4].

> [4] Riply ©   (31.08.08 05:04)

Хотя с другой стороны.... все зависит от человека. Если ему дано быть программистом он им станет...
В прочем тут не важно кем...
Один человек возьмет этот код, разберет его по косточкам, возможно найдет в нем ошибку, или просто подправит, может быть даже в обратную сообщит об изменениях, или просто задаст вопросы по коду.... а другой скопирует так и будет пользоваться с ошибкой... если она есть в коде, но ошибка по любому есть - в тупом копи-паст.....
Кстати, некоторым и данный код покажется лажей, так как скажут, что компилятор ругается на "!" :)

---

Riply   (2008-08-31 10:49:00) [2]

> [5] Leonid Troyanovsky ©   (31.08.08 09:22)
> Публикация кода - один из способов его проверки.

Убедительно.
Может, тоже, взять на вооружение такую "самопроверку" ?
Подумаю :)

---

Leonid Troyanovsky   (2008-08-31 09:22:00) [3]

> Riply ©   (31.08.08 05:04) [4]

> Почеу просто не перечислить имена нужных функций,
> ну и дать некоторые пояснения, если они требуются ?

Публикация кода - один из способов его проверки.
Один глаз - хорошо, а два - лучше ;)

--
Regards, LVT.

---

Riply   (2008-08-31 05:04:00) [4]

> [1] {RASkov} ©   (30.08.08 15:41)
> Оффтор Sorry.

Почеу просто не перечислить имена нужных функций,
ну и дать некоторые пояснения, если они требуются ?
IMHO, сразу давать код на вопросы такого типа - только вредить автору.

---

Amoeba   (2008-08-30 19:52:00) [5]

> Eraser ©   (30.08.08 17:38) [2]
>
> SHFileOperation + FO_COPY

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91

---

Eraser   (2008-08-30 17:38:00) [6]

SHFileOperation + FO_COPY

---

{RASkov}   (2008-08-30 15:41:00) [7]

Копирование папок(директорий) вместе с подкаталогами(подпапками, поддиректориями)
procedure CopyDir(PathFrom, PathTo: String; const Recurse: Boolean; const AMask: String = '*.*');
var SRec: TSearchRec;
begin
 PathFrom:=IncludeTrailingPathDelimiter(PathFrom);
 PathTo  :=IncludeTrailingPathDelimiter(PathTo);
 if FindFirst(PathFrom+AMask, faAnyFile, SRec) = 0 then begin
  try if not DirectoryExists(PathTo) then MkDir(PathTo);
  repeat
   if (sRec.Name='.') or (sRec.Name='..') then Continue;
   if Recurse and ((SRec.Attr and faDirectory)=faDirectory) then
    CopyDir(PathFrom+SRec.Name, PathTo+SRec.Name, Recurse, AMask)
!    else CopyFile(PChar(PathFrom+SRec.Name), PChar(PathTo+SRec.Name), !False!);
  until FindNext(SRec) <> 0;
  finally FindClose(SRec); end;
 end;
end;

//если False - то будет заменять файлы иначе существующие
//файлы не будут заменены, т.е. останутся старые.

---

Наверх