منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشاركة فولدر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشاركة فولدر (/showthread.php?tid=30026)



مشاركة فولدر - makky - 24-06-19

عايز اعمل مشاركة لفولدر بس يكون متاح للكل every one permission و read and wite
انا جربت الكود ده لكن مش بيخليه ل every one
Try

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

inParams("Description") = "My Description"
inParams("Name") = "$DATABAK$"
inParams("Path") = "D:\DATABAK"
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.")
Else
MessageBox.Show("Shared folder successfully!")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


RE: مشاركة فولدر - makky - 25-06-19

http://vb4arb.com/vb/showthread.php?tid=30037