23/02/2020, 16:17 #1 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Sitede yedekleme örnekleri var Veritabanı dosyamızı şifreli rar dosyası halinde yedekleyebilir miyiz @benbendedeilem Cevapla Cevapla
23/02/2020, 16:26 #2 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Visual Basic Code 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 Cevapla
23/02/2020, 16:28 #3 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Bu kod her dosya için işe yarar mı Cevapla Cevapla
23/02/2020, 16:30 #4 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Şurda güzel bir kod var https://www.mrexcel.com/board/threads/pa...ba.642171/ Cevapla Son Düzenleme: 23/02/2020, 16:38, Düzenleyen: accessman. Cevapla
23/02/2020, 20:26 #5 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 önceden sitede paylaşılmış Visual Basic Code 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 Cevapla
23/02/2020, 20:30 #6 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 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 Cevapla