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)
''Set file and password''
Dim Ext As New SevenZipExtractor(File, Pass)
''Check file with password''
If Ext.Check() Then
''Extract files to destination''
PassWin = "yes"
Catch ex As Exception
Seems to be working now... code is still the same...