+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : موضوع مهم جدا جدا ( فك ضغط ملف zip ) (/showthread.php?tid=10099)
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 16-08-13
السلام عليكم ورحمة الله
اعلم ان كل شئ بقدر الله تعالى
بينما انا اخذ بالاسباب
فقد كتبت موضوع قديم
الموضوع: التعامل مع الملفات المضغوطه rar و zip وغيرها من الملفات
وكتبت موضوع منذ بضع ايام
الموضوع: طلب ( التحقق من سلامة ملف Zip والتاكد من الرقم السرى )
وقد تعاون معى الاخوة جميعا جزاهم الله خيرا ونفع بهم وتقبل منهم صالح الاعمال
ولاكن للاسف الامر لم يكتمل معى الى ما اريد
فارجو من الاخوه الذين لديهم خبرة فى البحث والتطلع ان يتعاونو معى وجزاهم الله خيرا
اريد فك ملف مضغوك ZIP الى مسار معين مع ظهر رسالة اذا حدث خطاء ما
وان امكن اريد التحقق من سلامة الملف والرقم السرى الخاص يه
انا استخدمت هذا المشروع
ولاكن للاسف اذا تمت عملية فك الضغط او لم تتم فيظهر رسالة انها تمت بنجاج
اسئل الله التيسير
ولمن بحل لى هذه الشكله
له منى اجمل الدعوات الطيبات
وجزاكم الله خيرا
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - سعود - 16-08-13
معلش اخوي على الشطط الذي ساسببه لكن هل مثالك مثل هذا
http://www.codeproject.com/Tips/257193/Easily-zip-unzip-files-using-Windows-Shell32
لاني بحثت عنه ووجدته واتمنى من اي شخص(بعد اذنك) يحوله لدالة
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
انصحك اخ علي تستخدم مكتبة Ionic.Zip فهي سهلة جدآ كما توفر لك امكانيات مثلآ كلمة السر وغيرها
تفضل عملت لك مثال على ذلك[/COLOR]
[ATTACH=CONFIG]3774[/ATTACH]
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
وحتى لا اعقد عليك الامور اكثر انتبه لهذه الطريقة لفتح بكلمة السر
كود :
Try
Using zip As Ionic.Zip.ZipFile = Ionic.Zip.ZipFile.Read(txt_zipFile.Text)
zip.Password = "12345"
zip.ExtractAll(txt_Ex.Text, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
End Using
Catch ex As Exception
If InStr(ex.Message, "Password") Then
MsgBox("خطأ كلمة السر")
End If
End Tryموضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 16-08-13
جزاك الله خيرا
انا الان بذاكر فيها
ولى استفسار ما مصدر هذه المكتبه من صاحبها
وهل هى مجانيه
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
[COLOR="#000080"]اي اخي مجانيآ موجوده في مثالي الي ارفقته
وبالنسبة لصاحبها فلا اعرف لان حملتها من موقع اجنبي[/COLOR]
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 16-08-13
اصل كان فيه مكتبة شبيها لها بالضبط حصل عليها اخونا الكريم ( الشاكى الى الله ) ولاكن للاسف طلعت تشتغل لمدة 30 يوم وبعد كده تظهر رسالة لطلب الشراء هههههههه
يمكنك مراجعة
الموضوع: طلب ( التحقق من سلامة ملف Zip والتاكد من الرقم السرى )
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
[COLOR="#008080"]استخدمت الاداة لفترة طويلة لا اعتقد انها غير مجانيآ والله اعلم
لكنها سهله للغاية كما رأيت[/COLOR]
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 16-08-13
معلش سؤال بعيد شويا فى الكود السابق حدرتك وضعت
Using
اريد ان اعرف ما هذه وفيم تستخدم
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
نعم اخي اعتذر عقدتها شوي بمثالي بإستخدام BackgroundWorker
خلينا بالمهم
Using تستخدمها بحيث لاتضطر الى انشاء كائن من ZipFile ويكون استخدامها فقط لغاية End Using
يعني بدل ما نعرف فئة من ZipFile
كود :
Dim zip As ZipFile = ZipFile.Read(txt_ZipFile)يمكننا استخدامها من خلال الكلمة المحجوزه Using
وثم موت الفئة في End Using
وهذا الكود سيكون واضح لك ان شاء الله
كود :
Using zip As ZipFile = ZipFile.Read("مسار ملف zip")
zip.Password = "111" 'في حالة وجود كلمة سر
zip.ExtractAll("مسار الحفظ", Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
End Usingواذا تحب بدون استخدام Using
كود :
Dim zip As ZipFile = ZipFile.Read(txt_ZipFile.Text)
zip.ExtractAll(Save.Text, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)