Ancak sıkıştırma işlemlerini manual yaparım derseniz
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.