تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل مشاركة لفولدر
#1
اول مرة انزل موضوع .انا بتعلم منكم طبعا كنت سئلت ازاي اعمل شير لفولدر بواسطة ال vb.net
كود :
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
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم