怎么编写代定时码判断时间实现自动备份

Question

win2000的话，用任务计划比较好吧。
strSystem = Space(255)
    Ret = GetSystemDirectory(strSystem, 255)
    strSystem = Left$(strSystem, Ret)
strTime="00:00"
strExec = strSystem & "\at.exe " & strTime & " /every:1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 " & _
                            App.path & "\AutoTranSalation.exe"

Answer 1

感谢
可我看不明白你的代码，AutoTranSalation.exe是执行什么？
我想实现的是，用户发布一通知，每周都要用，我想在每周5晚上自动执行一段代码，
把每周都用的数据放到下周的数据表中
这个自动执行程序如何做？
如果我使用计划任务，能否在程序里自动把程序加到计划任务中？