使用的是 Delphi 2010 下 IOUtils 單元的 TDirectory.Copy 函數:

1 uses IOUtils; 2 3 procedure TForm1.Button1Click(Sender: TObject); 4 const 5 SourceDir = 'C:\Temp\Folder1'; { 源文件夾必須存在 } 6 DestDir = 'C:\Temp\Folder2'; { 如果目標文件夾不存在, 程序會自動創建 } 7 begin 8 TDirectory.Copy(SourceDir, DestDir); 9 end;

?

?

轉載于:https://www.cnblogs.com/LceMeaning/archive/2013/01/09/2853026.html

總結

以上是生活随笔為你收集整理的一条语句复制整个目录《转》的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。