Ağdaki Başka Bilgisayara Yedek Alma

[fatihbozkurt58]

Hazırladığım programı Userform üzerindeki "Yedekle" butonuyla ağdaki başka bir bilgisayara yedekliyorum. Ancak aşağıda verdiğim kod ile yedekleme yaptığımda ağdaki bilgisayarda mevcut yedeği değiştirip üzerine yazıyor. Benim isteğim bugünün tarihiyle gün gün ayrı ayrı yedekleme yapmasıdır. Eğer aynı gün içerisinde birden fazla yedek yaparsam en son yedeği bulundursun. Alınan yedeklerin dosya ismi yedeğin alındığı günün tarihi olmasını istiyorum. Kodu nasıl düzenlemeliyim?

Private Sub CommandButton6_Click()
On Error Resume Next
    Fname = ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "\\SERVER\Telafi\ " & Fname
ActiveWorkbook.Save
MsgBox "           Programınız" & Chr(10) & "SERVER'e kaydedildi"
Call UserForm_Initialize
End Sub

 

[fatihbozkurt58]

Yardımlarınızı bekliyorum arkadaşlar.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton6_Click()
On Error Resume Next

Fname = Split(ActiveWorkbook.Name, ".")(0) & " " & Format(Date, "dd_mm_yyyy") & ".xls"
ActiveWorkbook.SaveCopyAs "\\SERVER\Telafi\ " & Fname
ActiveWorkbook.Save

MsgBox "Programınız" & Chr(10) & "SERVER'e kaydedildi"
Call UserForm_Initialize
End Sub

 

[fatihbozkurt58]

Yardımınız için teşekkür ediyorum verdiğiniz kodla problem çözülmüştür.