[محمود بكرى]

كود :

 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)

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