Question Extracting Password-Protected zip files

[AndyLun2009]

Hi Everyone,
I am trying to make an application that makes zip file and extract zip files.
The code below works perfectly, but I need a way to handle password-protected zip files.
How Would I do that ?

Dim sc As New Shell32.Shell()

IO.Directory.CreateDirectory("C:\Dev")
Dim output As Shell32.Folder = sc.NameSpace("C:\Dev")
Dim input As Shell32.Folder = sc.NameSpace("C:\Dev\Java.zip")


Try
        output.CopyHere(input.Items, 4)
Catch err As NullReferenceException
        MsgBox("error:File Not Found !!")
End Try

 

[AndyLun2009]

.................