رمز گذاری روی فایل زیپ از طریق کد

[narese]

با سلام بنده از طریق کد ذیل بک آپ می گیرم.که فایل بک آپ در انتها بصورت زیپ شده و در مسیر قرار می گیرد

Sub GetBackup()
Dim sDate As String, src, dest, tdf As TableDef
If MsgBox("از برنامه پشتيبان گرفته شود؟", vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then Exit Sub
sDate = date
stime = Time()
sDate = Replace(sDate, "/", "-")
stime = Replace(stime, ":", "-")
src = strBackendPath
If src = "" Then Exit Sub
dest = CurrentProject.Path & "\Backup\" & GetFileFromPath(src, NameOnly) & sDate & stime & ".zip"
If Dir(CurrentProject.Path & "\Backup", vbDirectory) = "" Then
MkDir "CurrentProject.Path" & "\Backup"
End If
ZipFile src, dest
MsgBox "فرآيند پشتيبان گيري به پايان رسيد"

End Sub





حال می خواستم ببینم چطور می شود کد را اصلاح کرد تا فایل زیپ، رمز هم داشته باشد

[isaac23]

دوست عزیز تنها راهنمایی من می تونه این باشه استفاده از کامپونت بسیار قوی بنام XceedZip از هر نظر بی نیازت میکنه هر چیزی رو که بخوای داره .
موفق باشی.
پست های زیادی در این مورد توی سایت هست می تونی بگردی پیدا کنی همراه با فایل .