استخدام arj لضغط القاعدة

مغلق

بدأه nwn2007 في 12 يوليو 2007 · 3 رد · 566 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#112 يوليو 2007 في 03:18 صاحب الموضوع

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

كما تعودنا منكم دائما التعاون الدائم حل كل مشكله حتى اصبح المنتدى مرجع متكامل لمن يريد الفائده

اخواني عندي قاعده حجمها كبير واريد كود لضغط القاعدة عن طريق arj وايضا فك ضغطها عن طريق arj ايضا

ولكم تحياتي

#212 يوليو 2007 في 14:51

يمكنك استعمال سطر الاوامر باستخدام shell

او استخدام unrar الموجود مع برنامج winrar الشهير

يوجد مثال مع أدة يمكنك تحميلها هنا

مكتبة شبكة الدعاة إلى العلم النافع الإسلامية

#313 يوليو 2007 في 03:40

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

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

Dim w As String
w = MsgBox("هل تريدعمل نسخة احتياطية", vbYesNo)

strDate = "C:\moh\" & Format(Date, "yyyymmdd") & ".mdb"
If w = 6 Then
Shell ("C:\Program Files\WinZip\winzip32 -min -a -ex a:\" & Format(Date, "yyyymmdd") & ".zip C:\moh\db1.mdb")
End If

تم تعديل هذه المشاركة بواسطة nwn2007 في 13 يوليو 2007 في 03:50