如何实现 指定文件夹里的文件向另一指定文件夹的定时自动拷贝 功能？？

<html><body>拷贝一个文件的范例<br><br>
<%
  Dim objFSO    '声明一个名称为 objFSO 的变量以存放对象实例
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   If objFSO.FileExists(Server.MapPath("\new\work\main\newfile.asp")) Then
     objFSO.CopyFile Server.MapPath("\new\work\main\newfile.asp"), _
                     Server.MapPath("\new\work\newfile.asp")
     Response.Write "已经成功地对文件"&Server.MapPath("\new\work\main\newfile.asp")&"进行了拷贝"
   Else
     Response.Write Server.MapPath("\new\work\main\newfile.asp")&"不存在，无法进行拷贝"
   End If
  Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
%>
</body></html>