کپی کردن فولدر folder

سلام
دو تا سوال؟
1-چطوری میشه یه فولدر folder رو کپی
کرد.
2-بعدش چطوری میشه زمان یا حجم و یا .... باقیمانده از
کپی کردن فولدر رو نشون داد
حالا اگه دومی هم نشد مشکلی نیست.

نکنه:در مورد فایل قبلا بحث شده است.
ممنون

نقل قول:

---

نوشته شده توسط mahdi bg [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
دو تا سوال؟
1-چطوری میشه یه فولدر folder رو کپی
کرد.
2-بعدش چطوری میشه زمان یا حجم و یا .... باقیمانده از
کپی کردن فولدر رو نشون داد
حالا اگه دومی هم نشد مشکلی نیست.

نکنه:در مورد فایل قبلا بحث شده است.
ممنون

---

سلام

کد:

---

uses
  ShellApi;

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


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;

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

---

دوست عزیز
از راهنمایی شما ممنون هستیم.

سلام

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

کد:

---

uses
  ShellApi;

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
.....
  end;
  Result := (0 = ShFileOperation(fos));
end;

---

---

اولا ممنون برای کد

نقل قول:

---

2-بعدش چطوری میشه زمان یا حجم و یا .... باقیمانده از
کپی کردن فولدر رو نشون داد

---

برای این راهی وجود داره یا نه؟

سلام
برای کپی کردن پوشه اگه بخوای زمان و Progress نشون بدی یه خورده سخت میشه ، ولی اگه فایلهای داخل پوشه رو تک تک کپی کنی کارت راحت تره ...
من یه نمونه برای کپی فایل با استفاده از Thread ، درست کردم ، می تونی از اون استفاده کنی ( با ProgressBar هست ولی زمان نداره ) ...
البته فقط یه فایل رو کپی می کنه !! ...
اینم لینک دانلود :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تا چند روز دیگه یه دونه کاملترش رو برات می زارم ...
موفق باشی ...

سلام
چطوریه میشه پیغام های که
موقع کپی کردن داده میشه رو فارسی کرد
دو تا پیغام وجودداره
مسیر وجود نداشته باشد
1-این مسیر وجود ندارد آیا مایل به ساخت مسیر می باشید؟
فایل بخواهد جایگزین شود.وقتی که قبلا وجود داشته باشد
2-آیا مایل جایگزین کردن فایل .... با فایل .... میباشید
ممنون