[الشاكي لله]

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