mehrnoosh_al62
پنج شنبه 10 تیر 1389, 09: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
من دارم یه برنامه برای 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