(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?