[Mido9]

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

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


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

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

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


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

[Genius Live]

كود :

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

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