剪切文件夾及文件

Question

各位：
   幫忙寫一段代碼，要求實現將D盤中的Picutre文件夾剪切到E盤中，應刻如何寫這個代碼啊？如果是剪切文件又是怎樣實現呢？可以寫一段完整的代碼出來嗎？謝謝了!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
  function CopyFile(SourceName, TargetName: string): Boolean;
  var
    F: TShFileOpStruct;
  begin
    F.wnd := Form1.Handle;
    F.wFunc := FO_MOVE;                                       {操作方式}
    F.pFrom := PChar(SourceName + #0#0);
    F.pTo := PChar(TargetName + #0#0);
    F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
    result := ShFileOperation(F) = 0;
  end;
begin
  copyFile( 'c:\123','d:\123' );
end;

Answer 2

謝謝幫忙，首先要加入那一個類才能使用TShFileOpStruct;呢？

Answer 3

实现剪切就是　先复制　后删除原文件。
复制　CopyFile（）　删除　DeleteFile()