Я использую этот код для совместного использования папки:
Public Sub Share()
Dim managementClass As New ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
inParams("Description") = "My Description"
inParams("Name") = "Share Name"
inParams("Path") = "D:\Folder"
inParams("Type") = &H0
Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)
If Convert.ToUInt32(outParams.Properties("ReturnValue").Value) <> 0 Then MessageBox.Show("Unable to share directory.")
MessageBox.Show("Shared folder successfully!")
End
Sub
Теперь то, что я хочу, должно определить пользователя, который может получить доступ к этой папке через сеть? Как я могу сделать это?
Спасибо!
Эта запись в блоге объясняет, как настроить разрешения для доступа:
Код находится в C #, поэтому не будет проблемой портировать его на VB.