delphi4arab منتديات دلفي للعرب

بسم الله الرحمان الرحيم
قمت ببرمجة backup لقاعدة بيانات access وفق التاريخ
هذه الدالة
if DirectoryExists('C:\G_DEG\Archive') then
begin
copyFile('Data.MDB','C:\G_DEG\Archive'+'\Data'+(formatdatetime( 'dd mm yyyy', date ))+'.mdb',true);
end
اين الخطأ من فضلكم

وعليكم السلام ورحمة الله وبركاته ،
وما هي رسالة الخطأ التي تظهر لك ؟

وعليكم السلام اخ [b]Unprogramme[/b] 
عذرا لم انتبه للرسالة
الحمد لله لقد تم حل المشكل ،حيث كان الاشكال يدور حول التحويل من string الى pwidechar
هذا هو الحل
copyFile('Data.MDB',pwidechar('C:\G_DEG\Archive'+'\Data'+(formatdatetime( 'dd mm yyyy', date ))+'.mdb'),true);
بارك الله فيك اخ unprogramme

نصيحة بعد الارشفة تاكد ان الملف المنسوخ نسخة طبق الاصل من الملف الاصلى