فيما يتعلق بالنسخ الإحتياطي لقواعد البيانات

[medreg]

ما هو الكود المستعمل للنسخ الإحتياطي لقواعد البيانات
مثلاً لديا قاعدتين وهما :
doc.db
fiche.db
المطلوب عندما نضغط على زر النسخ الإحتياطي يتم نسخ هذه الملفات إلى مجلد داخل برنامجي وليكن هذا المجلد إسمه Archive تكون هذه الملفات على هذا الشكل :
أي يضاف لكل ملف تاريخ النسخ مثلاً :
ملف doc.db بعد إتمام عملية النسخ يصبح doc02022009.db
و ملف fiche.db يصبح fiche02022009.db

ربما أكون قد وفقت في الطرح

[محمد عبد العزيز]

لنسخ ملف استخدم CopyFile
http://www.delphi4arab.net/forum/showthread.php?tid=737
لمعرفة التاريخ استخدم Date
لتكتبه بشكل 02022009 استخدم FormatDateTime
حاول ان تكتب الكود بنفسك

[sandokhane]

هنالك طريقة جميلة و بسيطة تعتمد على مكون ZipForge (وهو مجاني للإستعمال الشخصي) ، نصنع به ملف zip يحتوي على كل الملفات المراد أرشفتها.

الموقع : http://www.componentace.com/download/dow...itionid=12

طريقة الإستعمال :

كود :

with ZipForge1 do begin FileName :=ExtractFilePath(application.exename)+'archive\'+'arch.'+FormatDateTime('dd.mm.yy',Date)+'.zip'; // Create a new archive file OpenArchive(fmCreate); // Set path to folder with some text files to BaseDir BaseDir :=ExtractFilePath(application.ExeName); AddFiles('*.db'); // set filter CloseArchive; MessageDlg('L''archive '+QuotedStr(Zipforge1.FileName)+' a été créée avec succès.', mtInformation, [mbOK], 0); end;

[medreg]

مشكورين على تعاونكم معنا

[كمال المجاني]

بارك الله فيكم