[bidaya]

السلام عليكم
احتاج كود ظغط الملفات بكلمة سر و كود  فك ضغطها عند الحاجة
حصلت على هذا الكود

كود :

 Using zip As New ZipFile
            zip.Password = "arab"
            zip.Encryption = EncryptionAlgorithm.WinZipAes256
            zip.AddDirectory("C:\folder")

            zip.Save("c:\save.zip")
        End Using

يقمو بالظغط من دون كلمة السر

وشكرا