[VB6] تعديل كواد النسخه الحتياطيه

من طرف ahmed250 السبت مارس 07, 2020 9:42 pm

ممكن تعديل الكواد التالي بحيث يتم حفظ النسخ بتاريخ وساعه وفي نفس الفولدر البرنامج وجزاكم الله خير لي ولكم

الكود:: On Error GoTo BackupError Dialog.FileName = "" Dialog.Filter = "Backup files (*.bck) |*.bck|" Dialog.ShowSave If Dialog.FileName <> "" Then If FileLen(App.Path & "\DataSum.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then MsgBox "áÇ íãßä äÓÎ ÞÇÚÏÉ ÇáÈíÇäÇÊ Úáì åÐÇ ÇáãÍÑß ÝÖáÇð Þã ÈÅÓÊÈÏÇáå ÈãÍÑß Ðæ ÓÚÉ ÇßÈÑ .", vbOKOnly + vbCritical, " ÎØÃ Ýí ÇáäÓÎ" + UserName Else FileCopy (App.Path & "\DataSum.MDB"), Dialog.FileName MsgBox "Êã Úãá äÓÎÉ ÇÍÊíÇØíÉ ÈäÌÇÍ", vbOKOnly + vbInformation, " ÇáäÓÎ ÇáÇÍÊíÇØí" + UserName End If End If Exit Sub BackupError: MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName

من طرف **NEXT** الأحد مارس 08, 2020 3:07 pm

راجع هذا المقال

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

من طرف ahmed250 الإثنين مارس 09, 2020 7:21 pm

اريد تعديل هذه الكواد بحيت يتم النسخ وحفظ في نفس الولد وحفظ النستخ بتاريخ والساعه بعدل من تحديد المسار واختيار اسم للنسخ

رد: [VB6] تعديل كواد النسخه الحتياطيه