Share And UNshare folder [بایگانی]

mehrnoosh_al62

پنج شنبه 10 تیر 1389, 08:45 صبح

سلام دوستان
من دارم یه برنامه برای Share و Unshare پوشه مینویسم
تابعی که برای Share نوشتم درست عمل میکنه اما نمیدونم چطور باید یک پوشه رو Unshare کنم:ناراحت::ناراحت:

تابع Share Folder:

Private Sub Sharing()
Try

Dim managementClass As New ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
inParams("Description") = fname
inParams("Name") = fname
inParams("Path") = fpath
inParams("Type") = &H0

Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)
If Convert.ToUInt32(outParams.Properties("ReturnValue").Value) <> 0 Then
chkShare.Checked = True
End If '

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub