لست مضطرا لتكرار الكود
فقط تعديل بسيط على الكود السابق
ملحوظة : من اجل التطبيق استبدلت القرص F بــ E
ايضا سيتم نسخ القاعدة مباشرة بدون مجلدات
Private Sub Backup_Click()
Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, NewFile2, NewFile3, CopyMyDB, CopyMyDB2, CopyMyDB3
OldFile = CurrentDb.Name
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = "c:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)
NewFile2 = "d:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)
NewFile3 = "e:\" & "\" & DBwithoutEXT & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
CopyMyDB2 = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile2 & """"
CopyMyDB3 = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile3 & """"
Shell CopyMyDB, 0
Shell CopyMyDB2, 0
Shell CopyMyDB3, 0
MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If
Call Shell("regedit.exe /s """ & CurrentProject.Path & "\Enable.reg""", 0)
MsgBox "تم نسخ قاعدة البيانات بنجاح ..", vbOKOnly, "تم النسخ بنجاح"
End Sub
dbdb.rar