نسخ احتياطى

بسم الله الرحمن الرحيم

السادة الأفاضل اعضاء المنتدى الكرام

لقد من الله على من فضله و توصلت لكود لعمل نسخة احتياطية أو Backup و حفظها فى أى مكان او حفظها فى مكان ما و عندما توصلت إلى هذا الكود عزمت على نشرة فى منتداكم الذى ساعدنى كثيرا حتى يستفيد الباقى و لكننى للأسف لم احضر الملف و احضرت الكود و هو الأتى

Private Sub cmdBackup_Click()

Dim FDFolder As FileDialog

Dim SelectedDB As Variant

Dim foldersave As String

Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB

Set FDFolder = Application.FileDialog(msoFileDialogFolderPicker)

FDFolder.AllowMultiSelect = False

FDFolder.Title = "اختر مجلد الحفظ"

FDFolder.ButtonName = "موافق"

If FDFolder.Show = True Then

For Each SelectedDB In FDFolder.SelectedItems

foldersave = SelectedDB

OldFile = "f:\BHADatabase\BHALuxor.mdb"

DBwithEXT = Dir(OldFile)

DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)

NewFile = foldersave & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM") & Right(DBwithEXT, 4)

CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"

Shell CopyMyDB, 0

MsgBox "نسخة احتياطية ", , "تم عمل نسخة احتياطية لهذا اليوم بنجاح"

Next

Else

End If

MyErr:

If Err.Number <> 0 Then

MsgBox Err.Number & " - " & Err.Description

End If

End Sub

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

و اخير أتوجه بخالص الشكر و التقدير لأعضاء المنتدى الكرام