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

[حمیدرضاصادقیان]

سلام دوستان
من میخواستم فایلهای درون یک فولدر رو به شاخه system32 انتقال بدم.
با دستور SHFileOpration وقتی کار میکنم یک فولدر براش میسازه من میخوام فایلهای داخل اونو کپی کنم.
هرکاری میکنم نمیشه.

[m-khorsandi]

از این تابع یا شبیه به این استفاده کردی؟


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

و اینجوری:


CopyDir('c:\1\*.*', 'c:\2');