[الشاكي لله]

تفضل كتبت لك طلبك على شكل دالتين

PHP كود :

Function IsFileCorrupted(ByVal zipPath As String) As Boolean
        Try
            Using zip As ZipFile = ZipFile.Read(zipPath)
                Return False
            End Using
        Catch ex As Exception
            Return True
        End Try
    End Function

    Function IsPasswordValid(ByVal Password As String, ByVal zipPath As String) As Boolean
        Return IIf(ZipFile.CheckZipPassword(zipPath, Password), True, False)
    End Function 


لاتنسى اضافة مجال الاسماء Imports Ionic.Zip

والمكتبة الي اعطاها اياك الاخ عبودي <

الشكر له ولاتشكرني انا

[ali.alfoly]

ممتاز فعلا
جزاك الله خيرا
ارسلت ليك رسالة على الخاص

[الشاكي لله]

ali.alfoly كتب :ممتاز فعلا
جزاك الله خيرا
ارسلت ليك رسالة على الخاص

تم الرد :d

[3booody]

[COLOR="#000080"]نعم اخي الشاكي لله جزاك الله خيرآ
لكن انتبه لايتم اطلاق استثناء في حالة الملف معطوب فقط ايضآ في حالة يحتوي على كلمة سر[/COLOR]

[3booody]

هذا مثال راح يفي بالغرض
وضعت لك لكل خطأ رسالة خاصة

[ATTACH=CONFIG]3786[/ATTACH]

[ali.alfoly]

بعد اذنك اخى 3booody واخى الحبيب [url="http://vb4arb.com/vb/member.php?454-%D8%A7%D9%84%D8%B4%D8%A7%D9%83%D9%8A-%D9%84%D9%84%D9%87"]الشاكي لله
[/url]
ورجاء من كل الاخوة اريد ان نتعاون فى شرح معظم الدوال الموجودة فى المكتبه لتحصل اقصى استفادة منها

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

على فكرة والله ياجماعة من فترة كبيرة جدا وانا ايحث عن ذلك ( هذه المكتبه كنز حقيقى )

[ali.alfoly]

بسم الله

التحقق من سلامة ملف 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 فى حالة تلف الملف

[ali.alfoly]

بسم الله

التحقق من الرقم السرى

كود :

[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_Password [/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_Password = Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].CheckZipPassword([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000], [/color][color=#A31515]"12345"[/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_Password [/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]3797[/ATTACH]

وهى تقبل معاملان برمتران
المعامل الاول : مسار الملف
المعامل الثانى : الرقم السرى

الداله ترجع بقيمه بولونيه
ام True فى حالة النجاح وتوافق الرقم السرى او False فى حالة الفشل او اختلاف الرقم السرى

[ali.alfoly]

شؤال هل هذه الدالة تقوم باصلاح الملف المعطوب

كود :

[color=#000000]Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].FixZipDirectory([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000])[/color]

ولو حد عنده ملف معطوب ياريت يجربها

[الشاكي لله]

ali.alfoly كتب :شؤال هل هذه الدالة تقوم باصلاح الملف المعطوب

كود :

[color=#000000]Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].FixZipDirectory([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000])[/color]

ولو حد عنده ملف معطوب ياريت يجربها

تقدر تسوي ملف معطوب بسهولة

افتح الارشيف بواسطة النوت باد

واحذف لك كم حرف واحفظ

طريقة تقليدية ههههههه