Question

VB代码怎么快速判断局域网共享文件可否连接并打开

如题，我在别的电脑上共享了一个文件，地址为\\192.168.1.100\test01，我想知道如何先判断这个文件可否连接
因为有时候发现没法连接的情况下，会卡顿几秒，造成程序假死的情况，我的代码如下：
'链接更新服务器
UserName = "test"
Password = "test"
Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", “\\192.168.1.1\test01”, False, UserName, Password

PS、以上代码可用，但是碰到对方电脑关了就网络断了，会假死几秒，目前是想解决假死的问题，不是能够连接上的问题

Answer 1

最简单的方法是用 on error resume next 忽略错误，简单快捷。先判断反而效率不高，因为检测共享是否存在是需要等待目标电脑反馈的，这个需要时间。实在想判断，可以用cmd命令中的net view，或者只检测是否开机用ping

追问

已经用了，只是执行到最后一句的时候，如果能连接，没问题，瞬间执行后面的代码
但是如果不能连接，会假死几秒