کپی کردن پوشه [بایگانی]

mahdi bg

شنبه 02 دی 1385, 06:31 صبح

سلام
من مس خواستم که یه پوشه (فایل نه )رو توی
برنامم از یه جا به یه جای دیگه کپی
کنم
اما هر کار کردم نشد
کسی می تونه کمکم کنه

MNosouhi

شنبه 02 دی 1385, 10:12 صبح

function MFCopyDir(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;

vcldeveloper

شنبه 02 دی 1385, 11:19 صبح

لطفا قبل از ایجاد تاپیک جدید در سایت جستجو کنید:
http://www.barnamenevis.org/forum/showthread.php?t=39124
http://www.barnamenevis.org/forum/showthread.php?t=14767

mahdi bg

دوشنبه 04 دی 1385, 05:22 صبح

سلام

از توجه هتون ممنون
قبلش Searchکردم

شاید بهتر بود این طوری مطرح می کردم که
کپی کردن پوشه به همراه یه ProgressBar که
مراحل پیشرفت ، فایلی که در حال کپی شدنه و
اگه ممکن باشه زمان باقی مانده و زمان سپری شده

چون توی این تاپیک ها ProgressBar فقط برای انتقال فایل
استفاده شده و نه پوشه