delphi 复制一个文件夹及其内容

它并不完美，但您可以基于此制定自己的例程：

procedure TForm2.Button1Click(Sender: TObject);

var

  aSourceDir : String;

  aDestDir   : String;

  aFileList  : TStringDynArray;

  iFile      : Integer;

  aSourceFileName : String;

  aDestFileName   : String;

begin

  aSourceDir := 'C:\DEV\GitRepositories\TestProjects\WithStatementSample\';

  aDestDir   := 'C:\DEV\GitRepositories\TestProjects\WithStatementSample2\';

  aFileList := TDirectory.GetFiles( aSourceDir );

  if not ( TDirectory.Exists( aDestDir ) ) and

         ( Length( aFileList ) > 0 ) then

  begin

    TDirectory.CreateDirectory( aDestDir );

  end;

  for iFile := 0 to Pred( Length( aFileList ) ) do

  begin

    aSourceFileName := aFileList[ iFile ];

    aDestFileName   := IncludeTrailingPathDelimiter( aDestDir ) +

                       ExtractFileName( aFileList[ iFile ] );

    TFile.Copy( aSourceFileName, aDestFileName );

  end;

end;

这将简单地循环在源目录中找到的每个文件并将其复制到目标目录。它不会复制文件夹，也不会复制文件夹的内容。