تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
موضوع مهم جدا جدا ( فك ضغط ملف zip )
#27
بسم الله

التحقق من سلامة ملف ZIP


كود :
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button4_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button4.Click[/color]

        [color=#0000FF]Dim[/color][color=#000000] Check_Zip [/color][color=#0000FF]As[/color] [color=#0000FF]Boolean[/color][color=#000000] = [/color][color=#0000FF]False[/color]

        [color=#0000FF]Try[/color]
            [color=#008000]' التحقق من سلامة الملف[/color]
[color=#000000]            Check_Zip = Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].CheckZip([/color][color=#A31515]"مسار الملف"[/color][color=#000000])[/color]
        [color=#0000FF]Catch[/color][color=#000000] ex [/color][color=#0000FF]As[/color] [color=#2B91AF]Exception[/color]
            [color=#008000]' اذا حدث خطاء[/color]
[color=#000000]            MsgBox(ex.Message)[/color]
        [color=#0000FF]End[/color] [color=#0000FF]Try[/color]

        [color=#0000FF]If[/color][color=#000000] Check_Zip [/color][color=#0000FF]Then[/color]
[color=#000000]            MsgBox([/color][color=#A31515]"الملف جيد"[/color][color=#000000])[/color]
        [color=#0000FF]Else[/color]
[color=#000000]            MsgBox([/color][color=#A31515]"الملف تالف"[/color][color=#000000])[/color]
        [color=#0000FF]End[/color] [color=#0000FF]If[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]


هذه الدالة على شكلين

الشكل الاول انظر الصورة
[ATTACH=CONFIG]3795[/ATTACH]
وهى تقبل معامل برمتر واحد وهو مسار الملف


الشكل الثانى انظر الصورة
[ATTACH=CONFIG]3796[/ATTACH]
وهو يقبل 3 معاملات برمترات
الاول : هو مسار الملف
الثانى :هو إصلاح الملف إذا لزم الأمر ويكون اما True للاصلاح او False لعدم الاصلاح
الثالث: لا اعرف

رجاء من الاخوة تجربة الدالة على ملف معطوب وشرح البرمتر الثالث للدالة الثانية

الدالتين يرجعو بقيمه بولونيه

ام
True فى حالة سلامة الملف او False فى حالة تلف الملف


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - بواسطة ali.alfoly - 17-08-13, 04:10 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] موضوع جد خطيرررر:بمجرد عمل exe للمشروع يراه برنامج الفيروسات على انه فيروس dr.programming 5 954 23-05-23, 01:50 PM
آخر رد: alfaiz678
  عن موضوع التفقيط،، احتاج مساعدتكم assuhimi 1 709 15-04-23, 02:32 AM
آخر رد: Taha Okla
  موضوع للنقاش عن تسعير المجهود حماده ممدوح البحيرى 10 1,079 24-12-22, 08:21 AM
آخر رد: حماده ممدوح البحيرى
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 2 887 01-11-22, 10:16 AM
آخر رد: محمدعبدالسلام
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 0 682 30-10-22, 10:56 PM
آخر رد: محمدعبدالسلام
Heart [VB.NET] بالله يا أخوتي نبي نفهم موضوع المزامنة الخاص بقواعد البيانات من نوع SQL SERVER 2016 RADOS 1 939 10-09-22, 01:10 PM
آخر رد: yassoo1985
  [كود] تصفح البيانات موضوع منقول سعود 0 971 13-11-21, 04:34 AM
آخر رد: سعود
  موضوع اعتقد انه بسيط خالد كامل1 2 1,425 21-08-21, 10:26 AM
آخر رد: abomo3ath
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 1,332 03-10-20, 09:16 PM
آخر رد: Ali 2020
  [سؤال] موضوع الازرار Abdullah alameery 4 1,717 29-09-20, 07:10 PM
آخر رد: kiki

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


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