نسخ قاعدة بيانات أكسس

هذا الكود لنسخ ملف من مسار لمسار أخر

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()
CopyFile "c:\my documents\b.mdb", "c:\b.mdb", False
End Sub

وهذا الكود أيضا لعمل النسخ الاحتياطي للملف مع عمل مجلد لوضع النسخة بداخله وتغيير اسم الملف

'MkDir "App.Path"
'MkDir App.Path & "\BACKUP\"
'HnHn
Source = "c:\XX.mdb"
dESTN = "c:\BACKUP\OXX.mdb"
FileCopy Source, dESTN

الأخ الكريم HnHn

لك كل الشكر و العرفان للمساعدة و الإهتمام

كثر الله من أمثالك و جعلك زخرا لأمثالنا من المبتدئين

الكود الأول جربته و عمل معي بصورة ممتازة و هذا ما كنت أبحث عنه

أما الكود الثاني الذي يقوم بعمل مجلد للنسخ الإحطياطية لم يعمل عندي و لا أعرف السبب

لذا أرجو أن تكمل جميلك بتوضيح الكود الذي يخص عمل مجلد للنسخ الاحطياطية

و مشكور مقدما لأنك تستحق الشكر

أخوك معتصم