هل يمكن ضغط محتوى مجلد خارجي ( باستخدام Winrar) بامر من قاعدة بيانات اكسس

[canary2522]

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

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

هل توجد طريقة لعمل ذلك 

ملحوظة : وجدت طريقة لضغط ملف خارجي وليس مجلد

[SEMO.Pa3x]

في 16‏/2‏/2022 at 15:33, canary2522 said:

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

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

هل توجد طريقة لعمل ذلك 

ملحوظة : وجدت طريقة لضغط ملف خارجي وليس مجلد

 

عليكم السلام، نعم يمكن ذلك بواسطة الـ Commandline

Sub Extract()

    Dim RarIt As String
    Dim Source As String
    Dim Desti As String
    Dim WinRarPath As String

    WinRarPath = "C:\Program Files\WinRar\"
    Source = "C:\Users\SEMO\Desktop\DBS\GoogleDriveUploader.rar"
    Desti = "C:\Users\SEMO\Desktop\DBS\"

    RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " e " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus)

End Sub

Sub Compress()

    Dim RarIt As String
    Dim Source As String
    Dim Desti As String
    Dim WinRarPath As String

    WinRarPath = "C:\Program Files\WinRar\"
    Desti = "C:\Users\SEMO\Desktop\DBS\"
    Source = "C:\Users\SEMO\Desktop\DBS\NameFolderRar.rar"

    RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " a " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Desti & Chr(34), vbNormalFocus)

End Sub

 

[canary2522]

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

 

تم تعديل فبراير 17, 2022 بواسطه canary2522

[SEMO.Pa3x]

استخدم الأمر: Kill

Kill(PathName)

 

[canary2522]

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

 

مثلا : اذا انا نقلت البرنامج الى قرص اخر او جهاز اخر لن يعمل الضغط بسبب المسار متغير واليك نموذج للتوضيح 

 

ضغط محتويات مجلد.rar

تم تعديل فبراير 17, 2022 بواسطه canary2522

[canary2522]

السلام عليكم ورحمة الله وبركاتة اولا احب اشكر الموقع وجميع الموجودين والقائمين عليه وبصراحة اني تعلمت الشيئ الكثير منكم حفظكم الله ونفع بعلمكم

المهم انا قد كنت سالت عن شيئ فكره وبحثت ووجدتها وبمساعدة SEMO.Pa3x جزاة الله خير 

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

 

ضغط محتويات مجلد.rar