Question

我有Client-Server环境并为Client-Server开发了一个项目。

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

请帮帮我。

Answer 1

这是使用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

Answer 2

我的代码看起来类似于适用于vista和win2k3机器的代码，但是当我在Windows服务器2008 R2（最近的更新）上尝试时，它会因“访问被拒绝”错误而失败。我已经尝试了上面的确切代码和相同的结果。我是盒子上的管理员，我尝试过禁用UAC但没有任何效果。

（我知道这不是答案，我没有权力发表评论）

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

2 个答案: