[求助]如何强制取消共享?

Private Sub Command2_Click() '取消共享

Dim RetVal As Long
RetVal = Shell("net share AAA /delete", 0) ' Run Calculator.
If RetVal = 0 Then
MsgBox ("Error")
Else
MsgBox ("OK")
End If
End Sub

这种方法可以去消AAA的共享,但是如果别的机器正在 访问这个文件夹就会导致取消共享失败，我要问的是怎么强制取消，不管其中的文件是否正在被使用。