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

Question

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

我需要共享编程方式使用VB.NET

我的服务器计算机的文件夹

请帮助我。

Answer 1

这是one example它显示了使用ManagmentClass的概念。这是C＃，但很容易转换为VB.NET：

---

UPDATE：

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，但没有任何影响。

（我知道这是不是一个答案，我无权评论）