حفظ نسخة مضغوطة من البرنامج winrar مع وضع رقم سري ثابت لكل النسخ

[omarahmed1424]

السلام عليكم ورحمة الله وبركاته وبعد ...

أعضاء المنتدى المحترمون لحفظ نسخة احتياطية من برنامجي أستخدم الكود التالي :

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 من البرنامج مع وضع باسورد ثابت للملف المضغوط 

وجزيتم خيرا

[omarahmed1424]

للرفع من شكري وتقديري

[omarahmed1424]

للرفع مع شكري وتقديري بشدة

[محمد ايمن]

تحية طيبة اخي الكريم

هذا نموذج مبدئي و هو قيد التطوير ان شاء الله

انشئ ملف نصي باسم 1.txt في القرص D

ثم شغل المرفق و اضغط الزر

ستجد ملف مضغوط بنفس الاسم في القرص D وهو محمي بكلمة سر

 

ملاجظة : تم تعديل المرفق لان المرفق السابق تالف

 

t1.rar

تم تعديل مايو 13, 2017 بواسطه محمد ايمن