感谢您使用微软产品。您可以通过ADSI方式的IADsFileShare对象得到某台计算机上所有共享目录的信息。 如下例:Dim fserv As Object Dim share As ObjectPrivate Sub Command1_Click() Set fserv = GetObject("WinNT://COMPUTERNAME/LanmanServer")
Debug.Print "**************************" For Each share In fserv Debug.Print share.Name Debug.Print share.Path Debug.Print share.Class Debug.Print share.HostComputer Next shareEnd Sub请参考下面的例子: Q234234 How to Manage File Shares Using ADSI http://support.microsoft.com/support/kb/articles/q234/2/34.asp Q169398 HOWTO: Manipulate File Shares with ADSI (VB Sample) http://support.microsoft.com/support/kb/articles/q169/3/98.asp HOWTO: Search Directories to Find or List Files (Q185476) http://support.microsoft.com/default.aspx?scid=kb;en-us;Q185476- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款 (http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。 为了为您创建更好的讨论环境,请参加我们的用户满意度调查 (http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
我是说用类似driverlistbox之类的冬冬选择的
Dim share As ObjectPrivate Sub Command1_Click() Set fserv = GetObject("WinNT://COMPUTERNAME/LanmanServer")
Debug.Print "**************************" For Each share In fserv
Debug.Print share.Name
Debug.Print share.Path
Debug.Print share.Class
Debug.Print share.HostComputer
Next shareEnd Sub请参考下面的例子:
Q234234 How to Manage File Shares Using ADSI
http://support.microsoft.com/support/kb/articles/q234/2/34.asp
Q169398 HOWTO: Manipulate File Shares with ADSI (VB Sample)
http://support.microsoft.com/support/kb/articles/q169/3/98.asp
HOWTO: Search Directories to Find or List Files (Q185476)
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q185476- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。