چگونه انتقال یک فولدر با محتویات خود از جائی به جای دیگر

[yosefyosef]

با عرض سلام وخسته نباشید

من یک فولدری دارم بنام c:\aa که شامل مجموعه از فایل ها وپوشه می باشد سوال :

1ـ ایا می توانم فولدر با محتویات خود را در داخل یک فولدر دیگری منتقل کنم فرض کنیم در E:\ ss
2ـ در حین انتقال می توانم نام ان فولدر تغییر دهم


با تشكر

[دلفــي]

uses
ShellApi;


function MoveDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_MOVE;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MoveDir('C:\AA','D:\BB');
end;