[سؤال] مشاركة ملف او مجلد ؟ - نسخة قابلة للطباعة

[سؤال] مشاركة ملف او مجلد ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=297)

مشاركة ملف او مجلد ؟ - Mido9 - 28-09-13

السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل انا الان مسوي شبكة محليه بدون إنترنت بين جهازين ،، و اقوم بمشاركة الملفات بين الاجهزه .

ولا توجد مشكلة الحمد لله

ولكن لدي إستفسار ،، هل يوجد كود برمجي استطيع من خلاله اعطيه مسار المجلد الى اريد مشاركته او الملف و هو يشاركه ؟

بدلاً من اني اذهب للملف واضغط كليك يمين ثم تشارينج ؟

يعني اعطيه المسار الكامل للملف او المجلد وهو يسوي مشاركه ؟ وشكرا لكم

RE: مشاركة ملف او مجلد ؟ - Genius Live - 22-02-14

كود :

Try

Dim managementClass As New ManagementClass("Win32_Share")

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

inParams("Description") = "My Description"

inParams("Name") = "Share Name"

inParams("Path") = "C:\My 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.")

else

MessageBox.Show("Shared folder successfully!")

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

والله أعلي وأعلم
Rolleyes