如何移动一个非空文件夹??

[SolarMoon]

如何移动一个非空文件夹??谢谢

[cxreal]

Y移动文件夹或者文件

procedure TForm1.Button2Click(Sender: TObject);
var
sPath:string;
fsTemp:SHFILEOPSTRUCT;
i:integer;
begin
sPath:=edit1.text;
if sPath<>''then begin
fsTemp.Wnd := Self.Handle;
//设置文件操作类型
fsTemp.wFunc :=FO_move;

//源文件全路径名
fsTemp.pFrom := PChar(edit2.text);

//要移动到的路径
fsTemp.pTo := PChar(sPath);

if SHFileOperation(fsTemp)<>0 then ShowMessage('文件移动失败');
end;

end;

[cxreal]

忘记了，需要包含
user shellapi;

fsTemp.pFrom := PChar(edit2.text);
edit2中填入所要移动的文件名或则文件夹名即可，
文件夹中可以包含文件

fsTemp.pTo := PChar(sPath);
为要移动到的路径

fsTemp.wFunc :=FO_move;
操作类型为MOVE，如果是要COPY，则为FO_COPY，其他的属性偶也不是很清楚了 ^_^

[superlionet]

http://expert.csdn.net/Expert/topic/2235/2235270.xml?temp=.2682611

我在这里回答过。去参考一下吧。