Sub File_Copy()
Application.ScreenUpdating = False
With CreateObject("Scripting.FileSystemObject")
.CopyFile "F:\DATA\*.xl*", "E:\BACKUP\", True
End With
hengio
Application.ScreenUpdating = True
End Sub
Sub hengio()
Application.OnTime Now + TimeValue("00:59:59"), "File_Copy"...