如何以編程方式在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，但沒有任何影響。

（我知道這是不是一個答案，我無權評論）