تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
موضوع مهم جدا جدا ( فك ضغط ملف zip )
#1
السلام عليكم ورحمة الله
اعلم ان كل شئ بقدر الله تعالى
بينما انا اخذ بالاسباب

فقد كتبت موضوع قديم
الموضوع: التعامل مع الملفات المضغوطه rar و zip وغيرها من الملفات

وكتبت موضوع منذ بضع ايام
الموضوع: طلب ( التحقق من سلامة ملف Zip والتاكد من الرقم السرى )

وقد تعاون معى الاخوة جميعا جزاهم الله خيرا ونفع بهم وتقبل منهم صالح الاعمال

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

اريد فك ملف مضغوك ZIP الى مسار معين مع ظهر رسالة اذا حدث خطاء ما
وان امكن اريد التحقق من سلامة الملف والرقم السرى الخاص يه

انا استخدمت هذا المشروع







ولاكن للاسف اذا تمت عملية فك الضغط او لم تتم فيظهر رسالة انها تمت بنجاج

اسئل الله التيسير
ولمن بحل لى هذه الشكله
له منى اجمل الدعوات الطيبات
وجزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#2
معلش اخوي على الشطط الذي ساسببه لكن هل مثالك مثل هذا
http://www.codeproject.com/Tips/257193/E...ws-Shell32
لاني بحثت عنه ووجدته واتمنى من اي شخص(بعد اذنك) يحوله لدالة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
انصحك اخ علي تستخدم مكتبة Ionic.Zip فهي سهلة جدآ كما توفر لك امكانيات مثلآ كلمة السر وغيرها
تفضل عملت لك مثال على ذلك
[/COLOR]

[ATTACH=CONFIG]3774[/ATTACH]


الملفات المرفقة صورة/صور
   

.rar   UnZip.rar (الحجم : 337.85 ك ب / التحميلات : 51)
الرد }}}}
تم الشكر بواسطة:
#4
وحتى لا اعقد عليك الامور اكثر انتبه لهذه الطريقة لفتح بكلمة السر

كود :
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
الرد }}}}
تم الشكر بواسطة:
#5
جزاك الله خيرا
انا الان بذاكر فيها
ولى استفسار ما مصدر هذه المكتبه من صاحبها
وهل هى مجانيه
الرد }}}}
تم الشكر بواسطة:
#6
[COLOR="#000080"]اي اخي مجانيآ موجوده في مثالي الي ارفقته
وبالنسبة لصاحبها فلا اعرف لان حملتها من موقع اجنبي
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#7
اصل كان فيه مكتبة شبيها لها بالضبط حصل عليها اخونا الكريم ( الشاكى الى الله ) ولاكن للاسف طلعت تشتغل لمدة 30 يوم وبعد كده تظهر رسالة لطلب الشراء هههههههه
يمكنك مراجعة
الموضوع: طلب ( التحقق من سلامة ملف Zip والتاكد من الرقم السرى )
الرد }}}}
تم الشكر بواسطة:
#8
[COLOR="#008080"]استخدمت الاداة لفترة طويلة لا اعتقد انها غير مجانيآ والله اعلم
لكنها سهله للغاية كما رأيت
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#9
معلش سؤال بعيد شويا فى الكود السابق حدرتك وضعت

Using

اريد ان اعرف ما هذه وفيم تستخدم

الرد }}}}
تم الشكر بواسطة:
#10
نعم اخي اعتذر عقدتها شوي بمثالي بإستخدام 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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 58 02-11-16, 11:47 PM
آخر رد: Mohamed20
  السلام عليكم موضوع جد يد شرح لبرنامج واتس اب مصمم بالفيجول بيسيك و سي شارب رهف العريفي 10 562 04-05-16, 03:28 AM
آخر رد: رهف العريفي
Exclamation الرجاء المساعدة في موضوع طباعة فاتورة لو سمحتم محمد شحادة 1 167 28-02-16, 02:16 PM
آخر رد: hassan
  [VB.NET] موضوع محدوف moftah70 0 154 17-12-15, 10:47 PM
آخر رد: moftah70
  [VB.NET] السلام عليكم موضوع بخصوص تناقل الصوت عبر جهازين عن طريق الأى بي mahmoudnemah 9 653 03-12-15, 12:08 PM
آخر رد: mahmoudnemah
  السلام عليكم اخواني حبيت اضيف لكم موضوع جديد وهو تحويل النصوص الموجوده بالصور الى نص moh61 5 415 20-09-15, 12:08 AM
آخر رد: moh61
Wink [VB.NET] موضوع من نوع ثلاثي الابعاد css2015 3 327 03-01-15, 02:03 PM
آخر رد: css2015
  موضوع قديم لابو ايهاب عن ادراج صورة GIF فى RichTextBox ali.alfoly 12 1,019 13-06-13, 02:39 PM
آخر رد: ali.alfoly
  موضوع لنقاش ahmad almasri 2 329 11-02-13, 11:55 AM
آخر رد: ahmad almasri
  مساعدة بخصوص موضوع بالمنتدى القديم , كشف رقم المتصل عن طريق فيجوال بيسك دوت نت adsss 6 1,618 20-12-12, 09:56 PM
آخر رد: sooriaty03

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم