delphi中怎么移动文件夹,我举个例子,大家来看看

-在D:盘下有两个文件夹,,一个是photo文件夹,,,一个是abc文件夹怎么把photo文件夹,,移动到abc文件夹里面.?-我要实现:当我单击,button1,后,,,photo就移动到了abc里面,-procedure TForm1.Button1Click(Sender: TObject);
begin这里面怎么写?请给个参考把,,谢谢了end;

用 SHFileOperation 这个吧，它能做的事情实在太多了，在MSDN查查这个函数，相信你收获一定不少，呵呵：use Shellapi; //记得 use Shellapifunction MoveDir(const aSrc, aDst: String): Boolean;
var
sfo: TShFileOpStruct;
i: Integer;
begin
FillChar(sfo,SizeOf(TShFileOpStruct),0);
sfo.fFlags:=FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SILENT or FOF_ALLOWUNDO;
sfo.Wnd:=0;
sfo.wFunc:=FO_MOVE;
sfo.pFrom:=PChar(aSrc);
sfo.pTo:=PChar(aDst);
Result:=not BOOL(SHFileOperation(sfo));
end;procedure TForm1.FormCreate(Sender: TObject);
begin
SHOWMESSAGE(BoolToStr(MoveDir('C:\www','D:\abcd'),True));
end;

可以用以下的方法： copyfile(pchar('c:\sql.txt'), pchar('d:\sql.txt'), true); 只要是文件的复制，都可以。 移动文件： movefile(pchar('c:\sql.txt'), pchar('d:\sql.txt')); 删除文件： deletefile('c:\sql.txt')； 以上都是可行的。