عمل مشاركة لفولدر - نسخة قابلة للطباعة

كود :
Sub sharrd()

        Try



            Dim dInfo As New DirectoryInfo("D:\database")

            Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()

            dSecurity.AddAccessRule(New FileSystemAccessRule("everyone", FileSystemRights.FullControl, InheritanceFlags.ObjectInherit Or InheritanceFlags.ContainerInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))

            dInfo.SetAccessControl(dSecurity)



            Dim managementClass As New ManagementClass("Win32_Share")

            Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")



            inParams("Description") = "My Description"

            inParams("Name") = "$database$"

            inParams("Path") = "D:\database"

            inParams("Type") = &H0

            inParams("MaximumAllowed") = Nothing

            inParams("Password") = Nothing

            inParams("Access") = Nothing ' Make Everyone has full control access.



            Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)









            If Convert.ToUInt32(outParams.Properties("ReturnValue").Value) <> 0 Then

                MessageBox.Show("Unable to share directory.")

            Else

                MessageBox.Show("Shared folder successfully!")

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try