Коприрование папки!

← →
biver64 (2008-08-30 15:25) [0]

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

← →
{RASkov} © (2008-08-30 15:41) [1]

Копирование папок(директорий) вместе с подкаталогами(подпапками, поддиректориями)
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 - то будет заменять файлы иначе существующие
//файлы не будут заменены, т.е. останутся старые.

← →
Eraser © (2008-08-30 17:38) [2]

SHFileOperation + FO_COPY

← →
Amoeba © (2008-08-30 19:52) [3]

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

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

← →
Riply © (2008-08-31 05:04) [4]

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

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

← →
Leonid Troyanovsky © (2008-08-31 09:22) [5]

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

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

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

--
Regards, LVT.

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

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

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

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

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

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

Коприрование папки! Найти похожие ветки