关于定时问题的请教

Question

正在写这样一个程序，系统根据设定的扫描时间（分钟计，1分钟至1000分钟）定时去检测收文箱是否有新的文件，如果有就触发一个发送进程。
如果我用timer控件，每次最多1分钟触发一次，只能在time事件中用循环判断是否到达设定的扫描时间，如果设定的扫描时间很大,就会很耗系统资源，timer控件1分钟触发一次也很耗资源（还有时间偏差），而发送进程也很耗资源，导致整个程序速度下载，我想请教一下有什么好的方法判断是否达到预定的扫描时间，不耗系统资源，也没有大的偏差？

Answer 1

    timer事件应该不会很耗时间呀。只是一个判断而已。时间也是不依据timer控件的interval来累计时间。
dim dtBeginTime as dateprivate sub form_load()
    dtbegintime=now()
    timer1.interval=60000
    timer1.enabled=true
end subprivate sub timer1_timer()
    if now()-dtbegintime>1000.0/1440 then '1000分钟间隔。
        'do something
         dtbegintime=now()
    end if
end sub

Answer 2

我没有时间帮你写程序
我说一下我的思路吧
timer控件每一分钟检测,并不怎么耗资,像你说的,根据设置时间来检测,这样你加一个变量
在timer控件每跳一分钟,变量加1,直到你的变量等于你设置的时间时
就执行详情见QQ3337976