[نبيل كونكت]

دورت فى المنتدى على النسخ الاحتياطى لقيت اكواد كلها على السى او بتحدد البارتشن
هل فى كود يقوم بعمل ملفات فى كل البارتشنات يسمى مثلا back  و يعمل نسخه احتياطيه للداتا برقم مع تغيير الرقم فى كل مره ياخد النسخه لحد مثلا 10 ويتم تجديد النسخ بالارقام هى كبيره فعلا بس  دى افضل طريقه لعمل نسخ احتياطى علشان لو نسخه باظت ميكونش كل النسخ باظت ولو فى بارتشن اتمسح او اى سبب يبقى فى نسخ للداتا ودى مش هتاخد مساحه كبيره ولو العميل حس بمشكله فى البرنامج يوقف النسخ الاحتياطى الى بيظهرله عن طريق رساله msgbox كل فتره زمنيه محدده مسبقا

[محمود بكرى]

كود :

 If Not Directory.Exists(Application.StartupPath & "\\BackUp") Then Directory.CreateDirectory(Application.StartupPath & "\\BackUp")
       Dim bads As String = Application.StartupPath & "\\BackUp\\lastbackup_" & Format(Now, "yyyy-MM-dd") & ".mdb"
       If File.Exists(bads) Then File.Delete(bads)
       File.Copy(Application.StartupPath & "\\md2.mdb", bads)

ممكن طبعا لاكن ليست كل الاجهزة تحتوي على نفس العدد من التقسيم فيمكنك تحديد ذلك من خلال تحديد اماكن الحفظ كما يختارها المستخدم فى ملف الاعدادات للبرنامج
وهذا كود النسخ الاحتياطي عند اغلاق الفورم الرئيسي والتحقق من وجود المجلد وان لم يكن موجود يقوم بانشائه