主题：怎样根据指定间隔时间打执行文件

根据时间列，每间隔30分钟，自动运行一次指定声音文件，代码怎样写，代码放在什么位置。谢谢指教！

参考

 

http://www.foxtable.com/webhelp/scr/0657.htm

 

运行以下计划代码时

Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时
dt = Date.Now
Syscmd.Project.open("c:\data\11.txt", True) '自动备份到c:\data目录
End If

出现“不能打开非开发版格式的项目文件”，怎么处理？

Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalSeconds >= 10 Then '10秒运行一次
    dt = Date.Now
    msgbox(1)
    Dim proc As new Process
    proc.file = "d:\test.xls"
    proc.start
End If

必须确定后，才能打。怎么样直接打开？谢谢

删除这个代码 msgbox(1)

 

怎样实现，如果状态列为“未办理”，运行上述代码；否则，不运行上述代码。代码怎么写，谢谢！

 

参考

 

http://www.foxtable.com/webhelp/scr/0400.htm

 

代码怎么写，谢谢！

Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalSeconds >= 10 Then '10秒运行一次
    dt = Date.Now
    Dim fdr As DataRow = DataTables("表A").find("状态='未办理'")
    If fdr IsNot Nothing Then
        Dim proc As new Process
        proc.file = "d:\test.xls"
        proc.start
    End If
End If