как мне программно настроить общий доступ к папке в vb.net

StackOverflow https://stackoverflow.com/questions/2543567

  •  23-09-2019
  •  | 
  •  

Вопрос

У меня есть клиент-серверная среда, и я разработал проект для Клиент-сервера.

Мне нужно предоставить общий доступ к папке моего серверного компьютера программно, используя VB.NET

Пожалуйста, помогите мне.

Это было полезно?

Решение

Вот один пример который показывает концепцию с использованием Класс управления.Это 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

Другие советы

У меня есть код, похожий на этот, который работает на компьютерах Vista и win2k3, но когда я пробую его на Windows server 2008 R2 (с последними обновлениями), он завершается с ошибкой "доступ запрещен".Я попробовал ваш точный код выше и получил тот же результат.Я администратор на коробке, и я пытался отключить UAC, но без какого-либо эффекта.

(я знаю, что это не ответ, у меня нет полномочий комментировать)

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top