problemas con timer

[william_085]

hola, tengo una duda, como le pudo hacer para dejar funcionando un timer durante las 24 hrs los 365 dias del año.

es que por horas hago respaldos de la base de datos y me copia bien 3 dias o 2 dias y ya despues no me copia la base de datos, me la deja de copiar

asi tengo el codigo en el timer

On Error Resume Next
Error 13
If Err.Number Then
'MsgBox "No ha hecho ninguna modificacion", vbExclamation, "Informacion"
End If

Dim Archivo As File
Dim Directorio As Folder
Dim ObjFile As New FileSystemObject
Dim tiempo As String

Label1 = Time

Timer1.Enabled = True

tiempo = Label1

If Combo1 = "" Then
'Timer1.Enabled = True
Else
Timer1.Enabled = True

'aqui se compara que cuando la hora es igual a la que nosotros guardamos se hace la copia
If CDate(tiempo) = Data2.Recordset!respaldo Then
ObjFile.CopyFolder "C:\WINDOWS\Pv Traslados\*", "p:\Pv Traslados\"
DeleteBackup "C:\WINDOWS\pv Traslados\tickets\"
DeleteBackup "C:\WINDOWS\Pv Traslados\Inventarios\"
End If
End If