omarahmed1424 قام بنشر مارس 8, 2017 مشاركة قام بنشر مارس 8, 2017 السلام عليكم ورحمة الله وبركاته وبعد ... أعضاء المنتدى المحترمون لحفظ نسخة احتياطية من برنامجي أستخدم الكود التالي : Private Sub Cmd1_Click() Set khaher = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(4) .AllowMultiSelect = False .ButtonName = "حفظ" .Title = "حفظ نسخة من قاعدة البيانات" If .Show = True Then [AsA] = .SelectedItems(1) khaher.CopyFile CurrentDb.name, Me.AsA & _ "\" & Replace(CurrentProject.name, ".MDB", "") & _ "_" & Format(Date, "yyyy-mm-dd") & ".MDB" MsgBox "تم أخذ نسخة احتياطية من برنامجك بنجاح", , "تنبيه!" Else [AsA] = "" End If End With End Sub وسؤالي للاعضاء الأعزاء هل يمكن التعديل على الكود السابق ليتم حفظ نسخة احتياطية مضغوطة winrar من البرنامج مع وضع باسورد ثابت للملف المضغوط وجزيتم خيرا رابط هذا التعليق شارك More sharing options...
omarahmed1424 قام بنشر مارس 11, 2017 الكاتب مشاركة قام بنشر مارس 11, 2017 للرفع من شكري وتقديري رابط هذا التعليق شارك More sharing options...
omarahmed1424 قام بنشر مارس 13, 2017 الكاتب مشاركة قام بنشر مارس 13, 2017 للرفع مع شكري وتقديري بشدة رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر مايو 13, 2017 مشاركة قام بنشر مايو 13, 2017 (معدل) تحية طيبة اخي الكريم هذا نموذج مبدئي و هو قيد التطوير ان شاء الله انشئ ملف نصي باسم 1.txt في القرص D ثم شغل المرفق و اضغط الزر ستجد ملف مضغوط بنفس الاسم في القرص D وهو محمي بكلمة سر ملاجظة : تم تعديل المرفق لان المرفق السابق تالف t1.rar تم تعديل مايو 13, 2017 بواسطه محمد ايمن 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان