VB 刷新自身

来源：百度知道 编辑：UC知道 时间：2024/07/08 09:32:39
打开一个VB窗口后，再不用动它，让它自己每隔一段时间（如3秒）就刷新一次，检测某个文件是否存在，存在则调用某个程序，
可以做到么？
望大侠帮忙啊~~
谢谢各位的回答，现在的问题是当打开一个程序后，程序仍然会每隔一段时间调用这个程序，

现在可以先把定时器关掉，但是怎末才能让它循环呢？
意思就是VB的这个窗口不关掉，当这个程序计算完毕后把检测的文件删除，如果再检测到有这个文件时然后再计算。可以实现么？

我的分数就这些了，全压上去了，大侠们帮忙啊！！！

解决<问题补充>
完整代码如下,这次要添加两个Timer控件哦:

Private Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:

If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Fun