Copy a file

procedure TForm1.DoCopyFiles(SourceDir, DestDir:string);
 
var
    Source, s: string;
    Result   : integer;
    SearchRec: TSearchRec;
    FailIfExists : boolean;
    Attr : Word;
 
begin;
if SourceDir[length(SourceDir)] <> '\' then SourceDir := SourceDir + '\';
if DestDir[length(DestDir)] <> '\' then DestDir := DestDir + '\';
Source := SourceDir + '*.*';
 
//copy all matching files first.
Result := FindFirst(Source, faAnyFile and (not faDirectory), SearchRec);
While Result = 0 do
  begin
  s := DestDir + SearchRec.Name;
  if not DirectoryExists(DestDir) then
     ForceDirectories(DestDir);
  FailIfExists := false;  //(RadioGroup1.ItemIndex <> 0);
  if not CopyFile(pchar(SourceDir+SearchRec.Name), pchar(s), FailIfExists) then
     begin;
        Memo1.Lines.Add('....' + SourceDir+SearchRec.Name + ' Error Copying File' + SysErrorMessage(GetLastError))
     end
  else   Memo1.Lines.Add(SourceDir+SearchRec.Name + ' copied');
  Result := FindNext(SearchRec);
  application.processmessages;
  end;
FindClose(SearchRec);
 
 
//recurse sub directories if necessary now.
if CheckBox1.Checked then
   begin;
   Result := FindFirst(Source, faDirectory, SearchRec);
   while Result = 0 do
       begin;
       if (SearchRec.Attr and faDirectory = faDirectory) and
          (SearchRec.Name <> '.') and
          (SearchRec.Name <> '..') then
          DoCopyFiles(SourceDir + SearchRec.Name, DestDir+SearchRec.Name);
       result := FindNext(SearchRec);
       application.processmessages;
       end;
   FindClose(SearchRec);
   end;
StatusBar1.SimpleText := 'done.';
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

function  FixFolderName(f: string): string;
begin
  if Trim(f) <> '' then
    if f[Length(f)] <> '\' then f := f + '\';
  Result := Trim(f);
end;
 
function  CopyFolder(SrcFolder, DstFolder : String) : Boolean;
var
  SearchRec : TSearchRec;
  Src, Dst     : String;
 
begin
  Src := FixFolderName(SrcFolder);
  Dst := FixFolderName(DstFolder);
 
  if Not DirectoryExists(Dst) then ForceDirectories(Dst);
 
  Result := TRUE;
 
  if FindFirst(Src + '*.*', faAnyFile, SearchRec) = 0 then
    try
      repeat
        with SearchRec do
          if (Name <> '.') and (Name <> '..') then
            if (Attr and faDirectory) > 0 then
              Result := CopyFolder(Src + Name, Dst + Name)
            else
              Result := CopyFile(PChar(Src + Name), PChar(Dst + Name), FALSE); 
      until (FindNext(SearchRec) <> 0) or (not result);
    finally
      FindClose(SearchRec);
    end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

repeat
  with SearchRec do
    if (Name <> '.') and (Name <> '..') then
      if (Attr and faDirectory) > 0 then
        Result := CopyFolder(Src + Name, Dst + Name)
      else
        Result := CopyFile(PChar(Src + Name), PChar(Dst + Name), FALSE); 
     CopyError := GetLastError; //<----Extra Line Here..
until (FindNext(SearchRec) <> 0) or (not result);
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:

until (not result) or (FindNext(SearchRec) <> 0);

                                              

1:

procedure CopyFolder(SrcFolder, DstFolder : String);
var
  SearchRec : TSearchRec;
  Src, Dst     : String;
 
begin
  Src := FixFolderName(SrcFolder);
  Dst := FixFolderName(DstFolder);
 
  if Not DirectoryExists(Dst) then ForceDirectories(Dst);
 
  if FindFirst(Src + '*.*', faAnyFile, SearchRec) = 0 then
  begin
    try
      repeat
        //ShowError(Src+SearchRec.Name+'  @@@@  '+Dst+SearchRec.Name);
        with SearchRec do
          if (Name <> '.') and (Name <> '..') then
            if (Attr and faDirectory) > 0 then
              CopyFolder(Src + Name, Dst + Name)
            else
              CopyFile(PChar(Src + Name), PChar(Dst + Name), FALSE); // FALSE = Always overwrite
      until FindNext(SearchRec) <> 0;
    finally
      FindClose(SearchRec);
    end;
  end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28: