vb.net - 如何在vb.net中以编程方式设置文件夹共享

我具有客户端服务器环境，并为客户端服务器开发了一个项目。

我需要使用VB.NET以编程方式共享服务器计算机的文件夹

请帮我。

最佳答案

这是one example，其中显示了使用ManagmentClass的概念。它是C＃，但可以轻松转换为VB.NET：



更新：

Directory.CreateDirectory("C:\MyTestShare")
Dim managementClass As New ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
inParams.Item("Description") = "My Files Share"
inParams.Item("Name") = "My Files Share"
inParams.Item("Path") = "C:\MyTestShare"
inParams.Item("Type") = 0
If (DirectCast(managementClass.InvokeMethod("Create", inParams, Nothing).Properties.Item("ReturnValue").Value, UInt32) <> 0) Then
    Throw New Exception("Unable to share directory.")
End If