VeriTabanı Yedeği Almak

[ragnorak]

Public Function OnTimeMacro()
Application.OnTime Now + TimeValue("00:01:00"), "yedekle"
End Function

Public Function yedekle()
Dim fs As Object
Dim oldPath As String, newPath As String
oldPath = AYARLAR.TextBox2x.Value
newPath = AYARLAR.TextBox21x.Value
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath, newPath & "\" & Environ$("computername") & " " & Format(Now(), "dd.mm.yyyy Hh.Nn") & ".accdb"
Set fs = Nothing
XED_FORM.Label1 = "AutoBackUp Çalışıyor!"
Call OnTimeMacro
End Function

Yukarıdaki şekilde Access dosyamın yedeğini alıyorum. Yalnız bu şekilde klasör doluyor! Klasör içinden her yedek aldığında kendinden 3.dk küçük olan dosyaları sildirmek istiyorum.

 

[ÖmerBey]

Merhaba,
Aşağıdaki satırı kodunuza ilave edip deneyiniz.

Kill newPath & "\" & Environ$("computername") & " " & Format(Now() - TimeValue("00:03:00"), "dd.mm.yyyy Hh.Nn") & ".accdb"

 

[ragnorak]

Ömer Bey çok teşekkür ederim. Elinize emeğinize sağlık. Mükemmel olmuş yine

 

[ÖmerBey]

Rica ederim, ama 3 dakika önce alınmış bir yedek yoksa hata verecektir. Siz en iyisi aşağıdaki şekilde düzeltin.

eski = newPath & "\" & Environ$("computername") & " " & Format(Now() - TimeValue("00:03:00"), "dd.mm.yyyy Hh.Nn") & ".accdb"
If Dir(eski) <> "" Then Kill eski