[VB6] تعديل كواد النسخه الحتياطيه
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
[VB6] تعديل كواد النسخه الحتياطيه
ممكن تعديل الكواد التالي بحيث يتم حفظ النسخ بتاريخ وساعه وفي نفس الفولدر البرنامج وجزاكم الله خير لي ولكم
- الكود:
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
ahmed250- .
- تاريخ التسجيل : 07/03/2020
المساهمات : 3
النقاط : 8
التقيم : 1
الدولة :
الجنس :
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: [VB6] تعديل كواد النسخه الحتياطيه
اريد تعديل هذه الكواد بحيت يتم النسخ وحفظ في نفس الولد وحفظ النستخ بتاريخ والساعه بعدل من تحديد المسار واختيار اسم للنسخ
ahmed250- .
- تاريخ التسجيل : 07/03/2020
المساهمات : 3
النقاط : 8
التقيم : 1
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد