剪切文件夾及文件
各位：
幫忙寫一段代碼，要求實現將D盤中的Picutre文件夾剪切到E盤中，應刻如何寫這個代碼啊？如果是剪切文件又是怎樣實現呢？可以寫一段完整的代碼出來嗎？謝謝了!
[解决办法]
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;
[解决办法]
实现剪切就是 先复制 后删除原文件。
复制 CopyFile（） 删除 DeleteFile()
