Veri Tabanındaki Tabloları Başka Veritabanına Yedekleme Örneği
çalıştırdığımda yedek klasörünün içinde hiçbirşey yok yedekden kastınız nedir...veritabanına yeniden aynı şekilde kaydetmek anlamıştım ben...
yzip = Left(LFilename, Len(LFilename) - 4)
Call press(LFilename, yzip) ' 7Zip İle Yedekleme Sıkıştırma İşlemini Yapıyoruz.
MsgBox "yedekleme işlemi tamamlanmıştır. Dosyanız " & LFilename & " Konumundadır..."
Kill LFilename ' Yedekleme İçin Kullandığımız Geçici Veritabanını Siliyoruz.
Bu satırları silebilirsiniz.