narese
سه شنبه 30 تیر 1394, 14:39 عصر
با سلام بنده از طریق کد ذیل بک آپ می گیرم.که فایل بک آپ در انتها بصورت زیپ شده و در مسیر قرار می گیرد
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
حال می خواستم ببینم چطور می شود کد را اصلاح کرد تا فایل زیپ، رمز هم داشته باشد
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
حال می خواستم ببینم چطور می شود کد را اصلاح کرد تا فایل زیپ، رمز هم داشته باشد