السلام عليكم
احتاج كود ظغط الملفات بكلمة سر و كود فك ضغطها عند الحاجة
حصلت على هذا الكود
يقمو بالظغط من دون كلمة السر
وشكرا
احتاج كود ظغط الملفات بكلمة سر و كود فك ضغطها عند الحاجة
حصلت على هذا الكود
كود :
Using zip As New ZipFile
zip.Password = "arab"
zip.Encryption = EncryptionAlgorithm.WinZipAes256
zip.AddDirectory("C:\folder")
zip.Save("c:\save.zip")
End Using
وشكرا