ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 204
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
Kod:
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