Skip to main content

AccessTr.neT


Şifreli Rar Şeklinde Yedeklemek

Şifreli Rar Şeklinde Yedeklemek

Çözüldü #1
Sitede yedekleme örnekleri var 
Veritabanı dosyamızı şifreli rar dosyası halinde yedekleyebilir miyiz
@benbendedeilem
Cevapla
#2
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 strCommand
Cevapla
#3
Bu kod her dosya için işe yarar mı
Cevapla
#4
Şurda güzel bir kod var
https://www.mrexcel.com/board/threads/pa...ba.642171/
Son Düzenleme: 23/02/2020, 16:38, Düzenleyen: accessman.
Cevapla
#5
ö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 Sub
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da