如果文件夹或子文件夹包含＆＃39; * .exe＆＃39;然后将整个文件夹复制到目标

Question

有谁知道如何实现这一目标。

假设我们的源目录是c:/files/

现在在c:/files/

内

我们有

  

C：/files/someprogram/folder/anotherfolder/setup.exe
  C：/files/someotherprogram/setup.exe

和

  

C：/files/someVideofolder/Movie.mp4

是否可以在c:/files/中搜索.exes，以便在目录包含exe副本时将整个目录树及其所有文件保持原样到新目录c:/CopyFiles/

所以

  

C：/copyfiles/someprogram/folder/anotherfolder/setup.exe   C：/copyfiles/someotherprogram/setup.exe

现在已经尝试了一段时间，甚至没有取得成功。

    procedure TForm7.Button4Click(Sender: TObject);
var
   ExePath  : String;
   ExeFiles : Array of String;
 begin


 ExeFiles := TDirectory.GetFiles(Sother,'*.exe',
                   TSearchOption.soAllDirectories,
                   function (const Path: string): Boolean
                   begin
                     Result := true;
                   end);

           {ExePath := TDirectory.GetCurrentDirectory(exefiles);}
           ExePath := TDirectory.GetDirectories(exefiles);
           CopyFilesToPath(exepath, Dother);