أخواني الأكارم
محتاج مساعدتكم لإنشاء مجلد رئيسي بواسطة الكود لكن أن يكون مشترك لكل المستخدمين مع عدم إمكانية حذفه أو تغيير إسمه إلا من قبل المسؤول
مع العلم أني استخدم الكود التالي لإنشاء المجلد
وقد حصلت على الكود التالي لجعل المجلد مشترك
إلا أني لم أتمكن من إضافة خاصية عدم الحذف أو تغيير الاسم، لذا أرجو منكم أخواني مساعدتي أو إرشادي لما هو مناسب لحل هذا الموضوع
مع جزيل الشكر والامتنان
محتاج مساعدتكم لإنشاء مجلد رئيسي بواسطة الكود لكن أن يكون مشترك لكل المستخدمين مع عدم إمكانية حذفه أو تغيير إسمه إلا من قبل المسؤول
مع العلم أني استخدم الكود التالي لإنشاء المجلد
كود :
If Not Directory.Exists("C:\My Folder") Then Directory.CreateDirectory("C:\My Folder").Attributes = FileAttributes.Hiddenوقد حصلت على الكود التالي لجعل المجلد مشترك
كود :
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إلا أني لم أتمكن من إضافة خاصية عدم الحذف أو تغيير الاسم، لذا أرجو منكم أخواني مساعدتي أو إرشادي لما هو مناسب لحل هذا الموضوع
مع جزيل الشكر والامتنان
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
