VB.Net代码解压缩受密码保护的文件

Question

以下代码用于将zip文件从一个文件夹解压缩到另一个文件夹。但我需要代码二解压缩密码保护的文件。此外，我还需要一次从文件夹中解压缩多个zip文件的代码(使用循环逐个解压缩(。

Dim startPath As String = "E:Asp.netCC_Folders"
Dim zipPath As String = "E:Asp.netCC_FolderSci-hub.rar"
Dim extractPath As String = "E:Asp.netCC_Extract"
'ZipFile.CreateFromDirectory(startPath, zipPath)
'ZipFile.pass
ZipFile.ExtractToDirectory(zipPath, extractPath)

Answer 1

我使用Ionic.Zip

提取、添加等

https://documentation.help/DotNetZip/VB.htm

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Using zip As New ZipFile()
zip.Encryption = EncryptionAlgorithm.WinZipAes256
zip.Password = "123456789"
zip.AddFile("H:TestFloris.txt")

zip.Save("H:TestEncryptedArchive.dll")
End Using
End Sub

Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
' Extract a zip archive that uses AES Encryption.
' You do not need to specify the algorithm during extraction.
Using zip As ZipFile = ZipFile.Read("H:TestEncryptedArchive.dll")
zip.Password = "123456789"
zip.ExtractAll("H:Test22")
End Using
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
Try
Using zip As New ZipFile()
zip.Encryption = EncryptionAlgorithm.WinZipAes256
zip.Password = "123456789"
zip.AddDirectory("H:Test")
zip.Save("H:TestEncrypt.zip")
MsgBox("Files zipped")
End Using
Catch ex As ZipException
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Try
Using zip As ZipFile = ZipFile.Read("H:TestEncrypt.zip")
zip.Password = "123456789"
zip.ExtractAll("H:Test2")
MsgBox("Files unzipped")
End Using
Catch ex As Exception
End Try

End Sub

终端类