- Katılım
- 20 Ekim 2005
- Mesajlar
- 475
Private Sub CommandButton2_Click()
DizinAdi = "C:\DemirbaşYedekleri"
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0
cevap = MsgBox("C:\DemirbaşYedekleri Klasörüne Yedeklenecektir. " & yedekyolu & " Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
GoTo son
End If
Application.StatusBar = " Belgeniz: C:\DemirbaşYedekleri\Demirbaş Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "c:\DemirbaşYedekleri\Demirbaş Yedek-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
End Suforumdan bulduğum kodlar ile kendime uyarlayarak yedekleme yapabiliyorum.
Şunu merak ediyorum. winzıp'in içinde bulunan add to (dosyaismi).zip komutu ile direk sıkıştırarar dosya yedeklenebilrimi. Tabiki sonunda yine güncel tarih olarak
DizinAdi = "C:\DemirbaşYedekleri"
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0
cevap = MsgBox("C:\DemirbaşYedekleri Klasörüne Yedeklenecektir. " & yedekyolu & " Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
GoTo son
End If
Application.StatusBar = " Belgeniz: C:\DemirbaşYedekleri\Demirbaş Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "c:\DemirbaşYedekleri\Demirbaş Yedek-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
End Suforumdan bulduğum kodlar ile kendime uyarlayarak yedekleme yapabiliyorum.
Şunu merak ediyorum. winzıp'in içinde bulunan add to (dosyaismi).zip komutu ile direk sıkıştırarar dosya yedeklenebilrimi. Tabiki sonunda yine güncel tarih olarak