Comment définir le partage de dossiers par programme dans vb.net

Question

J'ai l'environnement Client-Serveur et développé un projet pour Client-Serveur.

J'ai besoin de partager un dossier de ma machine serveur par programmation VB.NET

S'il vous plaît aidez-moi.

Answer 1

Voici one example qui montre le concept en utilisant ManagmentClass. Il est C# mais facilement convertible en VB.NET:

---

MISE À JOUR:

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

J'ai le code qui ressemble à ce qui fonctionne sur vista et machines Win2k3, mais quand je l'essaye sur le serveur de Windows 2008 R2 (avec des mises à jour récentes) échoue avec une erreur "accès refusé". J'ai essayé votre code exact ci-dessus et le même résultat. Je suis un administrateur sur la boîte et j'ai essayé de désactiver l'UAC mais sans aucun effet.

(je sais que ce n'est pas une réponse, je n'ai pas le pouvoir de commenter)