[ali.alfoly]

جزاك الله خيرا وجعله فى موازين حسناتك
فعلا انا اصلا مكنتش اعرف الاداة BackgroundWorker
وقدرا انتا استخدمتها وفى موضوع اخر اخونا سعود ايضا استخدمها فعملتلى كركبا فكرت انكم متفقدين عليا ههههههههه
ولاكن اليوم كان يوم جميل جدا تعلمت فيه اشياء كثيرة ومن اهما التعرف على الاداة BackgroundWorker

الان انا ما زلت اتفحص المكتبه بها مجموعة دوال روعه باذن الله بعد ما افهم كل شئ فيها ساقوم بعمل موضوع اشرحها فيه

ولى سؤال الان الدالة zip.ExtractAll تقبل معاملان برمتران 1 - هو المسار 2 - ما هو

[Abdullah0991]

البارمتر الثاني هو لتحديد فيما اذا كان هناك ملفات تحمل نفس الاسم هل سيسألك عن الاستبدال او سيقوم بالاستبدال فوراً بدون سؤال Overwrite Mode

[3booody]

[COLOR="#800000"]بالنسبة للثاني تستخدم عند الاستخراج فوق ملف موجود
الاول DoNotOverwrite اذا كان الملف موجود عدم الانتزاع فوقه
الثاني InvokeExtractProgressEvent اقتناص حدث خاص تابع للأداة
الثالث OverwriteSilently انتزاع وتبديل الملف الموجود
الرابع Throw رمي استثناء(خطأ)[/COLOR]

[3booody]

Abdullah0991 كتب :البارمتر الثاني هو لتحديد فيما اذا كان هناك ملفات تحمل نفس الاسم هل سيسألك عن الاستبدال او سيقوم بالاستبدال فوراً بدون سؤال Overwrite Mode

تحرجني معك عدم وجود ازرار الشكر والاعجاب

[Abdullah0991]

[ali.alfoly]

جزاكم الله خيرا
وجعله فى موازين حسناتكم

لى استفسار
اريد اتحقق من سلامة الملف والتحقق من الرقم السرى

[الشاكي لله]

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

لى استفسار
اريد اتحقق من سلامة الملف والتحقق من الرقم السرى

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

قمت بدراستها قليلا ووجدت بعض الخصائص الي تحتاجها

خاصية كشف الاخطاء : ZipErrorAction
خاصية التحقق من وجود رقم سري على الملف : Encryption

اعتقد هذا كل الي تحتاجه

[ali.alfoly]

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

[الشاكي لله]

ali.alfoly كتب :نعم بالفعل انا مش قادر انام والله فرحان بيها جدا جدا
وياريت لو حدرتك تشرح بعض الدوال الى فيها فى موضوع مستقل حتى يستفيد منه الاخوة

بالتعديل على مشروع الاخ عبوودي

PHP كود :

Private Sub UnzipFile(ByVal sender As Object, ByVal e As DoWorkEventArgs)
        Dim extractCancelled As Boolean = False
        Dim args() As String = e.Argument
        Try
            Using zip As ZipFile = ZipFile.Read(txt_ZipFile.Text)
                zip.ExtractAll(Save.Text, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
            End Using
        Catch ex As Exception
            MsgBox(ex.Message) 'سيتم اطلاقه اذا الملف خربان'
        End Try
    End Sub

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


اسم الدالة الي تجرب الباسوورد .CheckZipPassword
ولاتحتاج الى خاصية لتجلب لك الاخطاء

في قناص الاخطاء catch سيطلق لو كان الملف معطوب

[ali.alfoly]

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