26-12-16, 04:29 PM
سهل جدا اخي الكريم
FileCopy("C:\VB.Net CMS\bin\Debug\CMS.accdb", "C:\BackUpFolder\NewBackUpName.accdb")
MsgBox("لقد تم نســـخ قاعدة البيـــانات بنجاح")
' FileCopy(" DataSource = " & Application.StartupPath & "\your file name .accdb", "D:\BackUpFolder\NewBackUpName.accdb")
هذا الكود راح ينسخ لك في نفس مكان محدد مثل D or C
FileCopy("C:\VB.Net CMS\bin\Debug\CMS.accdb", "C:\BackUpFolder\NewBackUpName.accdb")
MsgBox("لقد تم نســـخ قاعدة البيـــانات بنجاح")
' FileCopy(" DataSource = " & Application.StartupPath & "\your file name .accdb", "D:\BackUpFolder\NewBackUpName.accdb")
هذا الكود راح ينسخ لك في نفس مكان محدد مثل D or C
