Şifreli Rar Şeklinde Yedeklemek

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

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