怎么列出本机的共享目录列表?

我想用cmd命令 net share 列出本机共享目录
可怎么把这个命令写进VB里,而且把共享的目录放在一个数组里呢?

解决方案 »

  1.   

    DOS命令
    net view \\192.168.1.73 >c:\1.txt
    192.168.1.73是自己的IP地址c:\1.txt既是你需要的东西
      

  2.   

    api  netshareEnum可以帮你写代码
      

  3.   

    '引用 wmi
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
    For each objShare in colShares
        Wscript.Echo "AllowMaximum: " & vbTab &  objShare.AllowMaximum   
        Wscript.Echo "Caption: " & vbTab &  objShare.Caption   
        Wscript.Echo "MaximumAllowed: " & vbTab &  objShare.MaximumAllowed
        Wscript.Echo "Name: " & vbTab &  objShare.Name   
        Wscript.Echo "Path: " & vbTab &  objShare.Path   
        Wscript.Echo "Type: " & vbTab &  objShare.Type   
    Next
      

  4.   

    调用WNetEnumResource枚举网络资源