Merhaba arkadaşlar aşağıdaki kod bloğu yedekleme yapıyor , şimdilik bir butona atadım ama ben kendi kendine düzenli aralıklarla otomatik olarak ve farklı sürücülere de yedeklenmesini istiyorum, şöyle ki; veritabanını bi çalışanımız flash bellekte tutuyor ve bazen farklı bilgisayarlarda da kullanıyor, sürücü değiştikçe kaydetme yeri sorunu ortaya çıkar, nasıl yapsam diye düşünüyorum, acaba yine flash belleğin içine mi yedeklesem ama bu kez de bellek büyüyecek, yardımcı olursanız çok memnun olurum, teşekkürler.
dosyamı yükleme gereği duymadım çünkü kodda düzenleme olacak işte bu yüzden...



Public Function yedekle() As Boolean
Dim Source As String
Dim Target As String
Dim objFso As Object
Dim Path As String

Source = CurrentDb.Name
'Path = CurrentProject.Path
Path = "C:\testDB"
Target = Path & "\BackupDB_" & Format(Now(), "mm-dd-yyyy") & ".accdb"

Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.folderExists(Path) Then
a = objFso.copyfile(Source, Target, True)
Else
objFso.Createfolder (Path)
a = objFso.copyfile(Source, Target, True)
End If
Set objFso = Nothing
Set a = Nothing

End Function