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

[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

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

[RESMAILY]

به نام خدا
با سلام این کد
ZipFile src, dest
مربوط است به کامند لاین command line برنامه زیپ سازی که روی سیستم نصب است. در داخل help برنامه مزبور، بخش کامند لاین را پیدا کنید و سینتاکس یا نحو کد مورد نظررا متوجه می شوید. چون در برنامه های مختلف تفاوت هایی دارد. مثلا در winrar به شکل زیر است

WinRAR a -pZaBaToAd -r secret games\*.*

که باید شرح مفصل پارامترهای آن را در خود برنامه ببینید.