哪个 API 可以判断指定的文件是否已共享
哪个 API 可以判断指定的文件是否已共享？？
谢谢！！
[解决办法]
将一目录在局域网上共享。
程序访问此目录，想知道其共享名。
--------------------------- 感谢您使用微软产品。
您可以通过ADSI方式的IADsFileShare对象得到目录的共享信息包括共享名。 如下例查询共享目录 "E:\test "的信息：
Dim fserv As Object
Dim share As Object
Dim shareNew As Object
Dim ShareRoot As String
Private Sub Command1_Click()
ShareRoot = "WinNT:// "
Set fserv = GetObject( "WinNT://COMPUTERNAME/LanmanServer ")
Debug.Print "************************** "
For Each share In fserv
If share.Path = "E:\test " Then
Debug.Print share.Name
Debug.Print share.Path
Debug.Print share.Class
debug.Print share.HostComputer
exit sub
End If
Next share
//如果共享了,必定不执行下面代码!
msgbox "没有共享 "
End Sub
