منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3 4 5

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 سيطلق لو كان الملف معطوب

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

الصفحات : 1 2 3 4 5

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ali.alfoly

Abdullah0991

3booody

3booody

Abdullah0991

ali.alfoly

الشاكي لله

ali.alfoly

الشاكي لله

ali.alfoly