例如：SE目錄下含一些文件和一些子目錄，將SE\*.*包含文件和子目錄Copy到另一個路徑下 ========================= 語言是工具，最重要是如何解決問題。

請參考 http://home.kimo.com.tw/bruce0211/ james2003.pas 中就有個 _XCopy()

這裡也有 http://www.cobbler.idv.tw/dvbbs/dispbbs.asp?BoardID=34&replyID=207&ID=196&skin=1 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

或者： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21934

//源目錄 Src 和目標目錄 Des 都必須是已經存在的。 procedure CopyDirectory(Src, Des : string); var Files : integer; FSrc, FDes : string; ok : boolean; Search : TSearchRec; begin Files := FindFirst(Src '\*.*', faAnyFile, Search); while Files = 0 do begin if Search.Attr <> faDirectory then begin FSrc := Src '\' Search.Name; FDes := Des '\' Search.Name; ok := CopyFile(PChar(FSrc),PChar(FDes),false); if not ok then ShowMessage('複製文件失敗: ' Search.Name); end else begin if (Search.Name <> '.') and (Search.Name <> '..') then begin ok := CreateDir(Des '\' Search.Name); if not ok then ShowMessage('創建目錄失敗: ' Search.Name) else CopyDirectory(Src '\' Search.Name, Des '\' Search.Name); end; end; Files := FindNext(Search); end; FindClose(Search); end;

http://delphi.ktop.com.tw/topic.php?topic_id=40942 包含相關的函式 _DelTree() 刪除整個目錄(含子目錄) _Move() 搬移整個目錄(含子目錄) _XCopy() 複製整個目錄(含子目錄) 全部也同時收錄在 http://home.kimo.com.tw/bruce0211/ 之 james2003 中

Hi, 也可以使用 SHFileOperation API 來進行, 請參考:    http://delphi.ktop.com.tw/topic.php?topic_id=25342 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shfileoperation.asp    記得 uses SHELLApi 哦~

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TSHFileOpStruct;
begin
  FillChar(a, SizeOf(TSHFileOpStruct), #0);
  a.Wnd := self.Handle;
  a.wFunc := FO_COPY;
  a.pFrom := 'c:\temp2\2';
  a.pTo := 'd:\test';
  SHFileOperation(a);
end;

謝謝各位的幫助。我學習到很多東西。下面問一個問題 timhuang: 您好。 使用您的方法。 a.pFrom := 'c:\temp2\2'; a.pTo := 'd:\test'; 執行結構是d:\test\2。 我想知道使用TSHFileOpStruct使執行的結果是c:\temp2\2\的所有文件直接Copy到d:\test\，目錄2不要copy進去。謝謝。 ========================= 語言是工具，最重要是如何解決問題。

各位好！ 如果想實現進一步的功能。 1、僅僅copy某目錄下的子目錄（子目錄下含多級子目錄和文件）。 2、僅僅copy某目錄下的文件，而不copy子目錄。 3、僅僅copy某目錄下指定後綴的文件。 ========================= 語言是工具，最重要是如何解決問題。

長官好 前面我有介紹過的 _XCopy(),_Move(),全部都由 Deltree() 演化而來 (看三個函式的程式碼類似性即知) 我認為您的新問題也脫離不了 _DelTree() 的架構 利用遞迴,過濾掉"要"與"不要"的 您不能舉一反三嗎 ? 想把您自己的座右銘回送給您 "語言是工具，最重要是如何解決問題。" 或是您也可以改成 "問題就讓它仍然是問題,最重要的是如何找到現成工具(API)" 發表人 - bruce0211 於 2004/01/30 10:42:17

bruce0211: 您說的話很讓人回味，謝謝教誨。 “_XCopy(),_Move(),全部都由 Deltree() 演化而來”，我還沒有認真研讀過城式碼。我馬上會去看。 ========================= 語言是工具，最重要是如何解決問題。

教誨不敢 只是覺得很多特殊的應用除了自己解決外 不要想說有現成的 API 可幫你處理 XCopy,Move,DelTree 是三個在 dos(或稱命令列)模式下常用的指令 XCopy : 複製所有目錄(含子目錄) Move:搬移所有目錄(含子目錄) Deltree:刪除所有目錄(含子目錄) 共同點,都有搜尋所有子目錄的功能,只不過看找到目標後 是要搬走,複製,還是刪除 所以我才想說,老一點的人看到就知這三個函式有關聯 但我忽略了現在很多人都不知dos(或稱命令列)模式是啥東東 當然看到我把 XCopy,Move,DelTree 三個函式放在一起 也沒任何感覺 .... 發表人 - bruce0211 於 2004/01/30 11:39:45

引言: timhuang: 您好。 使用您的方法。 a.pFrom := 'c:\temp2\2'; a.pTo := 'd:\test'; 執行結構是d:\test\2。 我想知道使用TSHFileOpStruct使執行的結果是c:\temp2\2\的所有文件直接Copy到d:\test\，目錄2不要copy進去。謝謝。

這樣的話只要將 a.pFrom := 'c:\temp2\2'; 改為 a.pFrom := 'c:\temp2\2\*.*'; 即可!