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

[medreg]

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

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

[B.M.AbdelAziZ]

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

[sandokhane]

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

الموقع : http://www.componentace.com/download/download.php?editionid=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]

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