راهنمایی : کپی فایلهای درون یک شاخه

[delphi_63102]

با سلام
من میخوام از فایلهایی رو که تو یه شاخه هست یک کپی تهیه کنم حالا چی بشه خود شاخه رو کپی کرد چی فایلهای درون شاخه رو ممنون میشم اگه راهنمایی کنید.

[Mahdi_S_T]

یک روش اینه که فایل ها رو یکی یکی کپی کنی ولی یه روش جالب همراه مثال در سایت زیر است که خیلی جالب است ( مربوط به پشتیبان گیری ) که اگه برای این کار می خوای عالی است و من هم در برنامه هام از اون استفاده می کنم وسرعت کپی اطلاعاتش هم خوب است
www.javan-soft.com

[javad_hosseiny]

من یه نمونه روتین برای این کار نوشتم تو برنامه ای که مشابه کار اینستال شیلد رو انجام می دهد.
لینک مطلب:
http://www.barnamenevis.org/forum/viewtopic.php?t=25862&start=0

[Hamid_PaK]

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;

فولدر رو با محتویات کپی می کنه !!!
موفق باشید :flower: