Vba、"This network connection has files open or requests pending"

Question

如果我运行以下，它工作并删除网络驱动器，

Set objNet = CreateObject("WScript.Network")
objNet.RemoveNetworkDrive "A:"

但是如果我运行这个，

If Len(Dir("A:\", vbDirectory)) > 0 Then
    Set objNet = CreateObject("WScript.Network")
    objNet.RemoveNetworkDrive "A:"
End If

我收到以下错误，

"This network connection has files open or requests pending"

Answer 1

不要使用 Dir，试试这个：

Set fso = CreateObject("scripting.filesystemobject")
If fso.DriveExists("A") Then
    Set objNet = CreateObject("WScript.Network")
    objNet.RemoveNetworkDrive "A:"
End If

Vba、"This network connection has files open or requests pending"

Vba, "This network connection has files open or requests pending"

vba