[已解决]设定定时器Timer

allanneo

哪位大侠可以帮忙看看，我想用设定一个定时器Timer,每半分钟测试是否连接上公网上的文件夹

"\\cnbefps01\TP1\Data"

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-21 19:18

1. Sub check()
   
2. '可以在B1单元格存入要检测的路径
   
3. '前提：要保证共享访问没有任何问题
   
4. 
   
5.     Application.OnTime Now() + TimeValue("00:00:30"), "check"
   
6.     On Error Resume Next
   
7.     Dim Path$, Path2$
   
8.     Path = "\\cnbefps01\TP1\Data"
   
9.     Path2 = Dir(Path, vbDirectory)
   
10.     If Len(Path2) > 0 Then
    
11.         [b2] = "访问正常"
    
12.     Else
    
13.         [b2] = "访问失败"
    
14.     End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub check()
   
2. '可以在B1单元格存入要检测的路径
   
3. '前提：要保证共享访问没有任何问题
   
4. 
   
5.     Application.OnTime Now() + TimeValue("00:00:30"), "check"
   
6.     On Error Resume Next
   
7.     Dim Path$, Path2$
   
8.     Path = "\\cnbefps01\TP1\Data"
   
9.     Path2 = Dir(Path, vbDirectory)
   
10.     If Len(Path2) > 0 Then
    
11.         [b2] = "访问正常"
    
12.     Else
    
13.         [b2] = "访问失败"
    
14.     End If
    
15. End Sub

复制代码

hwc2ycy

把ontime放到最后比较好，要是检测费了不少时间，这个30秒间隔就少了。

1. Sub check()
   
2. '可以在B1单元格存入要检测的路径
   
3. '前提：要保证共享访问没有任何问题
   
4. 
   
5.     On Error Resume Next
   
6.     Dim Path$, Path2$
   
7.     Path = "\\cnbefps01\TP1\Data"
   
8.     Path2 = Dir(Path, vbDirectory)
   
9.     If Len(Path2) > 0 Then
   
10.         [b2] = "访问正常"
    
11.     Else
    
12.         [b2] = "访问失败"
    
13.     End If
    
14.     Application.OnTime Now() + TimeValue("00:00:30"), "check"
    
15. End Sub

复制代码

allanneo

hwc2ycy 发表于 2013-1-21 20:18
把ontime放到最后比较好，要是检测费了不少时间，这个30秒间隔就少了。

谢谢，如果连接不上想停止该函数,等再次连接上再次启动，该怎么办呢？