[hago]

طريقة بسيطه لعمل نسخة احتياطية :
اذهب الى Project --->> Components
وإختر Microsoft Common Dialog 6.0
اضيف الاداة CommonDialog1 فى الفورم وسميها من خاصية الــــ Name الى (Dialog)
اضف ذر امر كوماند وسميه Backup وإضغط عليه دبل كليك واكتب الكود التالى :

PHP كود :

On Error GoTo BackupError    Dialog.FileName = ""    Dialog.Filter = "Backup files (*.bck) |*.bck|"    Dialog.ShowSave        If Dialog.FileName <> "" Then            If FileLen(App.Path & "\Lab.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then                MsgBox "لايمكن نسخ قاعدة البيانات على هذا المحرك فضلاً قم بإستبداله بمحرك ذو سعة اكبر", vbOKOnly + vbCritical, " خطأ فى النسخ" + UserName            Else                FileCopy (App.Path & "\Lab.MDB"), Dialog.FileName               MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطى " + UserName            End If        End If    Exit SubBackupError:  MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName 


استبدل كلمة Lab بــ إسم قاعدة البيانات التى عندك