How to check if password failed? Vb.Net

Jun 24, 2012 at 10:38 AM
Edited Jun 29, 2012 at 2:19 PM

I have got the current code which is suppose to check the password if correct it will uncompress..

 

    Shared Sub CheckPass(Pass As String)

        Try
            ''Set file and password''
            Dim Ext As New SevenZipExtractor(File, Pass)

            ''Check file with password''
            If Ext.Check() Then

                ''Extract files to destination''
                Ext.BeginExtractArchive(Application.StartupPath)
                PassWin = "yes"

            End If

        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try

    End Sub

Seems to be working now... code is still the same...