Bu dosyayı Access olarak değil de WinRar olarak kopyalamasını istiyorum. Kopyalarken Dosya isminin yanına tarih de yazsın. Bu konuda bana yardımcı olursanız çok memnun olurum. Çok teşekkür ediyorum şimdiden.
Yedekleme kodum: KUSURA BAKMAYIN YANLIŞ YERE KONU AÇMIŞIM.
Kod:
Dim asıldosya, kopyadosya As String
asıldosya = DosyaYolu
kopyadosya = "D:\YEDEK\" & Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
Dim Bak
Set Bak = CreateObject("Scripting.FileSystemObject")
Bak.CopyFile asıldosya, kopyadosya