Çözüldü Dosya Yedekleme

[Tasarım]

Arkadaşlar aşağıda kodla dosyamı düzenli aralıklarla yedekleyebiliyorum fakat, bazen aynı gün içersinde iki defa yedekleme yaptığım zaman uyarı veriyor ve dosyamı değiştirmemi söylüyor. Ben aşağıdaki kodun sonuna saat ve saniye eklemek istiyorum bunu nasıl yapabilirim?

Sub Yedekle()
On Error Resume Next
ChDrive ("D")
MkDir "D:\CKS"
ChDir "D:\CKS"
ActiveWorkbook.SaveAs Filename:="Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now)
ActiveWindow.ActivateNext
Application.DisplayAlerts = False
ActiveWindow.Close
End Sub

 

[RBozkurt]

Deneyiniz,

Sub Yedekle()
    On Error Resume Next
    ChDrive ("D")
    MkDir "D:\CKS"
    ChDir "D:\CKS"
    
    Dim dosyaAdi As String
    dosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now) & "_" & _
               Format(Hour(Now), "00") & Format(Minute(Now), "00") & Format(Second(Now), "00")
    
    ActiveWorkbook.SaveAs Filename:="D:\CKS\" & dosyaAdi
    
    ActiveWindow.ActivateNext
    Application.DisplayAlerts = False
    ActiveWindow.Close
End Sub

 

[Tasarım]

Deneyiniz,

Sub Yedekle()
    On Error Resume Next
    ChDrive ("D")
    MkDir "D:\CKS"
    ChDir "D:\CKS"
   
    Dim dosyaAdi As String
    dosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now) & "_" & _
               Format(Hour(Now), "00") & Format(Minute(Now), "00") & Format(Second(Now), "00")
   
    ActiveWorkbook.SaveAs Filename:="D:\CKS\" & dosyaAdi
   
    ActiveWindow.ActivateNext
    Application.DisplayAlerts = False
    ActiveWindow.Close
End Sub

Sayın RBozkurt düzenlediğiniz kod çok güzel çalıştı ancak, ben sonundaki saniyeyi kaldırıp, saat ve dakika arasına ":" iki nokta üstüste koyduğumda D'deki yedeğin üzerine yazmaya başladı. Acaba nerede hata yapıyorum.

Sub Yedekle()
     On Error Resume Next
Soru = MsgBox("Programı yedeklemek istediğinizden emin misiniz?", vbYesNo + vbInformation + vbDefaultButton1, "Yedekleme")
    If Soru = vbNo Then: Exit Sub
    ChDrive ("D")
    MkDir "D:\CKS"
    ChDir "D:\CKS"
    Dim DosyaAdi As String
    DosyaAdi = "Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now) & "_" & _
    Format(Hour(Now), "00") & ":" & Format(Minute(Now), "00")
    ActiveWorkbook.SaveAs Filename:="D:\CKS\" & DosyaAdi
    ActiveWindow.ActivateNext
    Application.DisplayAlerts = False
'    ActiveWindow.Close
MsgBox "Yedekleme işlemi başarıyla tamamlandı.", vbInformation, "Yedekleme"
End Sub

 

[RBozkurt]

Dosya adına ":" koyamazsınız. "_" veya "-" deneyin.

 

[Tasarım]

Dosya adına ":" koyamazsınız. "_" veya "-" deneyin.

Ekli dosyayı görüntüle 254869

Anladım. Teşekkür ederim.

 

[Korhan Ayhan]

Faydalı olabilir..

Dosya Yönetimi

dosyayonetimi.blogspot.com