+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şifreli Rar Şeklinde Yedeklemek (/konu-sifreli-rar-seklinde-yedeklemek.html)
Şifreli Rar Şeklinde Yedeklemek - accessman - 23/02/2020
Sitede yedekleme örnekleri var
Veritabanı dosyamızı şifreli rar dosyası halinde yedekleyebilir miyiz
Cvp: Şifreli Rar Şeklinde Yedeklemek - accessman - 23/02/2020
strDestFileName = "c:\temp\TestZipFile.zip"
strSourceFileName = "c:\temp\test.pdf"
str7ZipPath = "C:\Program Files\7-Zip\7z.exe"
strPassword = "MyPassword"
strCommand = str7ZipPath & " -p" & strPassword & " a -tzip """ & strDestFileName & """ """ & strSourceFileName & """"
Shell strCommandCvp: Şifreli Rar Şeklinde Yedeklemek - accessman - 23/02/2020
Bu kod her dosya için işe yarar mı
Cvp: Şifreli Rar Şeklinde Yedeklemek - accessman - 23/02/2020
Şurda güzel bir kod var
https://www.mrexcel.com/board/threads/passwording-zip-file-via-vba.642171/
Cvp: Şifreli Rar Şeklinde Yedeklemek - accessman - 23/02/2020
önceden sitede paylaşılmış
Private Sub Form_Timer()
Me.zaman = Time
Me.tarih = Date
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Yedekler")
rs.MoveFirst
DoEvents
Do Until rs.EOF
If rs.Fields("YedekSaati") = Me.zaman Then
x = Shell("C:\Program Files\WinRAR\winrar.exe" _
& " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " _
& rs.Fields("SaklanacakYer") _
& "\" & rs.Fields("YedekAdi") _
& Format(Date, "ddd") & " " _
& rs.Fields("YedekYeri") _
& "\*.*")
End If
rs.MoveNext
Loop
rs.Close
End SubCvp: Şifreli Rar Şeklinde Yedeklemek - accessman - 23/02/2020
5. mesajda eklediğim kodu paylaşılan klasördeki sqlitevt.db dosyasını şifreli olarak yedeklemek için kullanacağım
ama yedekleme saati ve konum vs bilgilerini modülde const altında tutacağım
nerelerini nasıl değiştirmem lazım