مشاركة فولدر - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 |