使用vba检查网络连接

Question

有没有办法在vba中检查网络连接？

我正在使用这个命令：

If Dir("O:\") = "" Then
    MsgBox "you have network connection"
Else
    MsgBox "No Connection"
End If

但它不起作用，我收到运行时错误

Answer 1

除了翻转 if 和 else 部分之外，你所做的几乎是正确的，

即当Dir("O:\") = "" =您未连接时

当它返回一些东西时就意味着你们已经建立了联系。

Dir函数用于返回指定目录中的第一个文件名和属性列表。

Sub Test_Connection()

 If (Len(Dir("O:\"))) Then
  MsgBox "Connected"
 Else
  MsgBox "No Connection"
 End If

End Sub