Question

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

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

Answer 1

用 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;

Answer 2

使用shellexec() 调用DOS命令就行啦 例如: shellexec('move photo abc')

Answer 3

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