копирование папки вместе с содержимым

[betirsolt]

всем привет, нужно написать прогу которая будет копировать папку полностью с ее содержимым. вот в инете откопал такую функцию и начал проверять

procedure TForm1.Button1Click(Sender: TObject);
begin
FullDirectoryCopy('d:\UCH\2\', 'd:\UCH\1\',true,true);
end;

function TForm1.FullDirectoryCopy(SourceDir, TargetDir: String;
  StopIfNotAllCopied, OverWriteFiles: Boolean): Boolean;
Var
SR: TSearchRec;
I: Integer;
Begin
Result:=False;
SourceDir:= IncludeTrailingBackslash(SourceDir);
TargetDir:= IncludeTrailingBackslash(TargetDir);
If Not DirectoryExists(SourceDir) Then
Exit;
If Not ForceDirectories(TargetDir) Then
Exit;
I:=FindFirst(SourceDir + '*', FaAnyFile, SR);
Try
While I = 0 Do
Begin
If (SR.Name <> '') And (SR.Name <> '.') And (SR.Name <> '..') Then
Begin
If SR.Attr = FaDirectory Then
Result:= FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME,
StopIfNotAllCopied, OverWriteFiles)
Else
If Not (Not OverWriteFiles And FileExists(TargetDir + SR.Name)) Then
Result:= CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name),False)
Else
Result:=True;
If Not Result And StopIfNotAllCopied Then
Exit;
End;
I:=FindNext(SR);
End;
Finally
SysUtils.FindClose(SR);
End;
end;

вобщем все вроде работает но копирует только примерно 40% из папки, что это может быть?помогите пожалуйста

[evg_m]

а где разделитель "\" при рекурсивном спуске.

Result:= FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME,
StopIfNotAllCopied, OverWriteFiles)

на первом шаге он еще есть(может быть), а вот дальше уже нет.
а если нет разделителя, то это совсем другой путь, и совсем другие результаты.

но копирует только примерно 40% из папки, что это может быть?

Result:= CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name),False)

то же самое.

на первом шаге он еще есть(может быть),

точно есть

FullDirectoryCopy('d:\UCH\2\', 'd:\UCH\1\',true,true);

вот в инете откопал такую функцию и начал проверять

при первой же проверке надо смотреть параметры на КАЖДОМ ( она же у вас рекурсивная) входе функции, и обнаружить отсутствие разделителя.

[betirsolt]

проблема в том что я не совсем понимаю этот код, но эта функция IncludeTrailingBackslash должна проверять есть ли в пути слэш и если нет добавить его.нет?
а может вообще есть способ по проще?чтоб мне тоже понятно было

[FaTaL]

IncludeTrailingBackslash эта функция поддерживается только в Delphi 5. Вы в ней работаете?

[Stilet]

которая будет копировать папку полностью

Упростим?
http://delphiworld.narod.ru/base/cop...ith_files.html

[betirsolt]

Сообщение от FaTaL

IncludeTrailingBackslash эта функция поддерживается только в Delphi 5. Вы в ней работаете?

нет, у меня RAD Studio 2007, а какую тогда мне использовать вместо нее?

[betirsolt]

Сообщение от Stilet

Упростим?
http://delphiworld.narod.ru/base/cop...ith_files.html

боже мой)))спасибо,это именно то что мне нужно,вы всегда помогаете, большое спасибо

[Stilet]

Пользуйся на здоровье )