скрытное копирование папки с файлами

[Jeni]

Вообще-то, правильнее заключать в кавычки весь путь, а не его отдельные элементы. А так как всё делается программно, то можно просто заключать в кавычки оба пути - и исходный, и целевой - хуже не будет.

[[CKW]-Az-]

Сообщение от KWN, lnc

у меня не получилось эту функцию использовать! как это сделать?
пытался

procedure TForm1.Button1Click(Sender: TObject);
begin
FullDirectoryCopy;
end;

и вписывал в

private 
 Function FullDirectoryCopy;
public
Function FullDirectoryCopy

и там и сям не катит! плиззз помогите!

Это функция и к ней надо параметры указать!!!

[LordTor]

Объясните дураку как правильно эту функцию использовать пожалуйста
Function FullDirectoryCopy(SourceDir,TargetD ir: String; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;

[Stilet]

Например.

begin
 FullDirectoryCopy('c:\temp','d:\temp\',false,true);
end;

[LordTor]

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

Например.

begin
 FullDirectoryCopy('c:\temp','d:\temp\',false,true);
end;

извиняюсь за тупость а что в данном случаи означает false,true;

[Kotofff]

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

извиняюсь за тупость а что в данном случаи означает false,true;

Function FullDirectoryCopy(SourceDir,TargetDir: String; StopIfNotAllCopied, OverWriteFiles: Boolean): Boolean;

Описание от автора:

Аргумент StopIfNotAllCopied: если значение этого аргумента = True, то при первой же ошибке копирования файла или папки, работы функции прекратится а функуция вернёт False. В случае если этот аргумент = False, то ошибки копирования учитываться не будут.
Аргумент OverWriteFiles: если True, то существующие файлы будут переписаны.

[Dr. MefistO]

Подскажите, плиз, как следует поступить в случае, если мне нужно при копировании папки целиком, пропустить файлы заданного расширения!?

Т.е. если при FindFirst или при FindNext файл *.ext найден, то пропустить его, и перейти к следующему...

Помогите дополнить эту процедуру параметром SkipExt: string, в котором будет укажываться маска пропускаемых файлов:

Function 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;

[Stilet]

то пропустить его

If ExtractFileExt(SR.Name)='.ext' then continue;

[tarakan1983]

По поводу Function FullDirectoryCopy.
А если в исходной директории есть большие файлы как избежать зависания Формы?

Application.ProcessMessages;

не помогает.

[Stilet]

tarakan1983

Крутить эту функцию в отдельном потоке.