Creo que te puedo dar la solucion.

Para que se te ejecute en el inicio vas a escribir en la entrada de registro "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run". Esto lo puedes hacer con la API RegSetValueEx.

Para que sea a una hora en concreto lo vas a hacer con la API GetSystemTime y comparando el valor que te devuelve con la hora que tu quieras.

Creo que con eso tienes el problema solucionado.

Si tienes alguna duda al respecto pregunta.

Es la primera vez que trabajo con esto del registro..... no comprendo como tengo que usar RegSetValueEx y GetSystemTime...

podrias ponerme un ejemplo de como hacerlo? y donde tengo que hacerlo? ya que si lo hago en mi aplicación... si no la ajecuto no se creará la copia de seguridad....

perdona, pero ando bastante perdido en este tema.

mira yo tengo algo parecido, solo que uso una base de datos del SQL

'Apis
'==================================
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

'PROCESOS
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
'PAUSA
Public Declare Function GetTickCount Lib "Kernel32.dll" () As Long

Public Const STILL_ACTIVE = &H103
Public Const PROCESS_QUERY_INFORMATION = &H400



Private Sub cmdRespaldo_Click()
    'Determinar el nombre de la base de datos
    Dim b As Long, strPath As String * 255
    Dim Archivo As String
   
    On Local Error Resume Next
   
    b = GetShortPathName(fbDir.Text, strPath, Len(strPath))
    strPath = Left$(strPath, b)
   
    If Trim(strPath) = "" Then
        MsgBox "Directorio no valido", vbCritical + vbOKOnly, App.EXEName
        Exit Sub
    End If
   
    GetAttr (Trim(strPath) & "Respaldo" & Format(Date, "ddMMyyyy") & ".zip")
    If Err.Number = 0 Then
        b = MsgBox("¿El archivo de respaldo ya existe, desea sobreescribirlo?", vbQuestion + vbYesNoCancel, App.EXEName)
        Select Case b
            Case 6 ' Si
                Archivo = Trim(strPath) & "Respaldo" & Format(Date, "ddMMyyyy")
            Case 7 ' No
                Archivo = InputBox("Teclee el nombre del archivo de respaldo (sin extensión).", "Crear Respaldo", "")
                If Trim(Archivo) = "" Then
                    Exit Sub
                Else
                    Archivo = Trim(strPath) & Archivo
                End If
            Case 2 ' Cancelar
                Exit Sub
        End Select
    Else
        Archivo = Trim(strPath) & "Respaldo" & Format(Date, "ddMMyyyy")
    End If
    'Exit Sub
    If AbrirBD(Acceso.LecturaEscritura) <> 0 Then Exit Sub
   
    'Crear respaldo de la base de datos
    On Local Error Resume Next
   
    lblProgres.Caption = "Creando copia de seguridad..."
    ProgressBar1.Value = 1
    DoEvents
   
    BD.Execute "BACKUP DATABASE [Indicadores] TO DISK = N'" & Archivo & ".bak ' " & _
               "WITH  NOINIT, NOUNLOAD, NAME = N'Respaldo" & Format(Date, "ddMMyyyy") & "', " & _
               "NOSKIP, STATS = 10, DESCRIPTION = N'Respaldo', NOFORMAT"
    DoEvents
    If Err Then
        MsgBox BD.Errors(0).Number & vbCrLf & BD.Errors(0).Description, vbCritical + vbOKOnly, App.EXEName
    Else
        ' Coomprimir la base de datos .bak
       
        lblProgres.Caption = "Comprimiendo archivo..."
        ProgressBar1.Value = 2
        DoEvents
       
        'Ejecuta el comando MSDOS
        ExeEspera "c:\archiv~1\winzip\winzip32.exe -a -r " & Archivo & ".zip " & Archivo & ".bak"
       
        lblProgres.Caption = "Borrando archivos temporales..."
        ProgressBar1.Value = 3
        DoEvents
       
        Kill Archivo & ".bak"
       
        lblProgres.Caption = "Proceso terminado"
        ProgressBar1.Value = 4
        DoEvents
       
    End If
   
    On Local Error GoTo 0
    CerrarBD
   
End Sub


Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function

y es muy necesario que lo tengas que programar??. porque no lo haces desde el programador de tareas del Windows?

Venga te lo facilito un poco.

Esto lo tienes que colocar en la cabecera, antes de Option Explicit:


Y esto en el cuerpo:


Con eso haces que se te ejecute en cada inicio.


Y con eso haces que a las doce se te copie en la ruta que le hayas dicho.

Ya por co***es tienes que saber hacerlo. De todas formas si no lo consigues pregunta de nuevo.