以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]用代码设置文件夹为共享文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159476)
--  作者：blsu33
--  发布时间：2020/12/27 21:57:00
--  [求助]用代码设置文件夹为共享文件夹
老师，
  如何用代码完成对一个文件夹设置为共享文件夹？
--  作者：有点蓝
--  发布时间：2020/12/27 22:15:00
--  
外部引用添加：System.Management.dll

Try
    Dim managementClass As New System.Management.ManagementClass("Win32_Share")
    Dim inParams = managementClass.GetMethodParameters("Create")
    Dim outParams As System.Management.ManagementBaseObject
    inParams("Description") = "某描述"
    inParams("Name") = "某共享名称"
    inParams("Path") = "D:\\问题\\RMT"
    inParams("Type") = &H0
    outParams = managementClass.InvokeMethod("Create", inParams, Nothing)
    
    If CUInt((outParams.Properties("ReturnValue").Value)) <> 0 Then
        msgbox("无法创建.")
    Else
        msgbox("创建成功")
    End If
    
Catch ex As exception
    msgbox(ex.message)
End Try