کپی همه فایل های یک پوشه در یک مسیر دیگر

[drstrike]

سلام...
یه پوشه دارم که یه سری فایل داخلش هست. این فایل ها، نه تعداشون مشخصه و نه نوعشون.

چطوری همه این فایل ها رو تو یه مسیر دیگه - با ProgressBar - کپی کنم؟

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

[Felony]

با استفاده از توابع FindFirst و FindNext و CopyFile میتونید کار مورد نظرتون رو انجام بدید .

[حسین شهریاری]

اين برنامه را ببينيد!
کارتونا حتما حل ميکنه.از همين سايت گرفتمش.کافيه مسير يه فولدر و مسير مقصد را بدي.مثل نمونه..

[drstrike]

یه نمونه از ProgressBar تو سایت هست ولی
واسه فایل ها جواب میده. ProgressBar واسه کپی فولدر اگه بزارید ممنون میشم


یعنی کسی چنین تابعی ننوشته تا به حال!؟ :متفکر:

[Felony]

وقتی برای کپی فایل رو پیدا کردید با کمی تغییر میتونید عملیات مور نظرتون رو باهاش پیاده سازی کنید ، دیگه چی میخواهین ؟!

[behnam_dr]

var
g_curdir:String;
begin
g_curdir:=GetCurrentDir;
try
if not ForceDirectories(edit1.Text) then
MessageDlg(' ',mtError,[mbok],0)
else
begin
Copydir(g_curdir+'\dbFiles',edit1.text);
MessageDlg('عملیات انجام شد',mtInformation ,[mbok],0)
end;
Except
ShowMessage('مقصد معرفی شده مشکل دارد');
end;
end;