guardar archivos cada determinado tiempo

[forketina]

Tienes razón,ya habia probado ponerlo ahí pero de igual manera hace la copia pero no agrega las siguientes copias y es que me doy cuenta que se hace la copia con tan solo hacer clic en el primer boton osea en cualquier momento y es que actualmente el código está asi:
*módulo1
--------------------------------
Option Compare Database
Option Explicit
' Función que crea un timer
Declare Function SetTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
' Función que detiene el timer iniciado
Declare Function KillTimer Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
-------------------------------------------------------------
' Función Callback que se dispara al iniciar el timer
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

End Sub
--------------------------------------------------------
'Inicia
Sub Iniciar_Timer(Hwnd_Form As Long, Intervalo As Long, ID As Long)
SetTimer Hwnd_Form, ID, Intervalo, AddressOf TimerProc
End Sub
-----------------------------------------
'Detiene
Sub Detener_Timer(Hwnd_Form As Long, ID As Long)
KillTimer Hwnd_Form, ID
End Sub
--------------------------------------------
*formulario
--------------------------------
Private Sub Form_Load()
Milisegundos = 250
Command1.Caption = " Iniciar "
Command2.Caption = " Detender "
Command3.Caption = " Especificar Intervalo "
End Sub
----------------------------------
Private Sub Form_Unload(Cancel As Integer)
' Mata el timer y finaliza el programa
Call Detener_Timer(Me.hwnd, 0)
End
End Sub
----------------------------------
botones
--------------------------------------
Private Sub Comando0_Click()
' Inicia el timer
Call Iniciar_Timer(Me.hwnd, Milisegundos, 0)
On Error Resume Next
MkDir "c:\MI_CARPETA"
FileCopy "c:\ejemplo.doc", "c:\ejemplo (2).doc"
End Sub
----------------------------------------------------
Private Sub Comando1_Click()
' Detiene la ejecución del timer que se iniciado
Call Detener_Timer(Me.hwnd, 0)
End Sub
------------------------------------------
Private Sub Comando2_Click()
On Error Resume Next

' Para Especificar los milisegundos
Milisegundos = InputBox(" Intervalo ", _
" Indicar los milisegundos para el intervalo ")

' Si se presiona cancelar o no es un número sale
If Err.Number = 13 Then
MsgBox " el valor ingresado no es un válido", vbCritical
Exit Sub
End If

' Limpia el controlador de error
On Error GoTo 0

' Cambia el intervalo
Call Iniciar_Timer(Me.hwnd, Milisegundos, 0)
End Sub