önceden sitede paylaşılmış

Private Sub Form_Timer()

    Me.zaman = Time

    Me.tarih = Date

    

    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("Yedekler")

    

    rs.MoveFirst

    DoEvents

    Do Until rs.EOF

        If rs.Fields("YedekSaati") = Me.zaman Then

            x = Shell("C:\Program Files\WinRAR\winrar.exe" _

            & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " _

            & rs.Fields("SaklanacakYer") _

            & "\" & rs.Fields("YedekAdi") _

            & Format(Date, "ddd") & " " _

            & rs.Fields("YedekYeri") _

            & "\*.*")

        End If

    rs.MoveNext

    Loop

    rs.Close

End Sub