谢谢！。
全局脚本保留，周期设置为每日的0时0分1秒。
建立start按钮，触发vbs，每次运行检测文件是否存在：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim fso,myfile,daystr,dstr,fname

dstr = FormatDateTime(Date)

fname="d:\" + dstr + ".xls"

Set fso = CreateObject("s cripting.FileSystemObject")

If (fso.FileExists(fname)) Then

Else

Set MyFile = fso.GetFile("d:\backup\value.xls")

MyFile.Copy (fname)

End if

End Sub

就解决了。