Hola David y gracias ,finalmente pude pasar todos los archivos de una carpeta de una unidad a otra y eliminando después los archivos de la carpeta origen y lo puse en el módulo1 y lo sustituí por lo que tenia antes en la función del TimerProc:
Módulo1.
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 Ruta_origen As String
Dim Ruta As String
Ruta_origen = "C:\carpeta1\"
Ruta = Dir(Ruta_origen, vbNormal)
Do While Ruta <> ""
' Asegurar que es un archivo.
If (GetAttr(Ruta_origen & Ruta) And vbNormal) = vbNormal Then
FileCopy "C:\carpeta1\" & Ruta, "D:\carpeta2\" & Ruta
End If
Ruta = Dir
Loop
Kill "C:\carpeta1\*.doc"
End Sub
