guardar archivos cada determinado tiempo

[David]

Y es que no estás poniendo el código para copiar :

Código PHP:

  Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, _
              ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Static x As Long
Forms("Form1").Caption = "Tiempo transcurrido: -->>  " & CStr(x)
x = x + 1

Dim FileName As String
Dim Count As Integer
FileName = Dir("c:\ejemplo.doc")
Do While FileName <> ""
      Count = Count + 1
      FileName = Dir("c:\ejemplo (" & Count & ").doc")
Loop
'Aquí te falta el código para copiar (FileCopy)'
End Sub