(02/12/2018, 22:19)haliliyas yazdı: strTo = Application.CurrentProject.Path & "\yedek\" & date() & "_" & Application.CurrentProject.Name

yukardaki kodda date yazan yer yerine aşağıdaki "zaman" fonksiyonunu tanımlardanız her yedeğin ömüne tarih ve zaman ekler
___________________________________________________________________________________
zaman = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmm")
strTo = Application.CurrentProject.Path & "\yedek\" & zaman  & "_" & Application.CurrentProject.Name
___________________________________________________________________________________

Evet, bu çok iyi oldu işte. Teşekkürler..

Hocam verdiğiniz kodları ben de kullandım ancak  yazdığım kodun
"fso.CopyFile strFrom, strTo, True "
bölümünde hata veriyor. Nerde yanlış yapıyor olabilirim acaba.

Sayın olcay.kaya kodu aşağıdaki şekilde değiştirerek dener misini?

Private Sub Komut11_Click()

zaman = Format(Date, "yyyy_mm_dd") & "_" & Format(Time, "hh_mm")



strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name

strTo = Application.CurrentProject.Path & "\yedek\" & zaman & "_" & Application.CurrentProject.Name

    

    Dim fso As FileSystemObject

        Dim sSourcePath As String

        Dim sSourceFile As String

        Dim sBackupPath As String

        Dim sBackupFile As String

        Dim DB As New Access.Application

If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then

   MkDir Application.CurrentProject.Path & "\yedek"

End If

        Set fso = New FileSystemObject

        fso.copyFile strFrom, strTo, True

        Set fso = Nothing

        Beep

        MsgBox "Backup was successful and Saved" & "Backup completed"



End Sub

Hocam denedim ama yine aynı satırda hata veriyor. Referanslarda Microsoft Access14.0 Object Library ve Microsoft Scriting Runtime seçili. Run Time Error "70" Permission denied 
hatası veriyor.

Sayın berduş hocam sizin düzenleyip eklediğiniz dosyada da aynı hatayı veriyor. Bilgisayarım x86 Windows7 Office sürümüm 2010. Bunlarla ilgili birşey olabilir mi?

Sayın olcay.akkaya
 
Güvenlik ayarlarıyla ilgili olabilir.