Форум: "Начинающим";
Текущий архив: 2008.10.12;
Скачать: [xml.tar.bz2];
ВнизКоприрование папки! Найти похожие ветки
← →
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.
← →
Riply © (2008-08-31 10:49) [6]> [5] Leonid Troyanovsky © (31.08.08 09:22)
> Публикация кода - один из способов его проверки.
Убедительно.
Может, тоже, взять на вооружение такую "самопроверку" ?
Подумаю :)
← →
{RASkov} © (2008-08-31 11:14) [7]> [5] Leonid Troyanovsky © (31.08.08 09:22)
Кстати, да.... признаюсь, есть такое. Но и моя тезка права... в [4].
> [4] Riply © (31.08.08 05:04)
Хотя с другой стороны.... все зависит от человека. Если ему дано быть программистом он им станет...
В прочем тут не важно кем...
Один человек возьмет этот код, разберет его по косточкам, возможно найдет в нем ошибку, или просто подправит, может быть даже в обратную сообщит об изменениях, или просто задаст вопросы по коду.... а другой скопирует так и будет пользоваться с ошибкой... если она есть в коде, но ошибка по любому есть - в тупом копи-паст.....
Кстати, некоторым и данный код покажется лажей, так как скажут, что компилятор ругается на "!" :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.10.12;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.049 c