نقل قول: ZiP و Unzip کردن فایل و فولدر ها به روش خیلی ساده !
نوشته شده توسط Alirezanet
Extract entries using a password:
Using zip As new ZipFile(FilePath)
Dim e As ZipEntry
For Each e In zip
If (e.UsesEncryption)
e.ExtractWithPassword("Secret!")
Else
e.Extract
End If
Next
End Using