如果是共享文件夹是不能得到的
可用Net View \\IP来试试

解决方案 »

  1.   

    是共享的
    我是说用类似driverlistbox之类的冬冬选择的
      

  2.   

    感谢您使用微软产品。您可以通过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))。