Difference between revisions of "Sharing in VbNET"

From HashVB
Jump to: navigation, search
(Sharing Files and Folders in VB.NET)
 
(Sharing Files and Folders in VB.NET)
 
(One intermediate revision by one user not shown)
Line 1: Line 1:
 
This code is for sharing folders or files in vb.net using the System.Management references.
 
This code is for sharing folders or files in vb.net using the System.Management references.
 
+
I transcode it from C in:
I transcode it from C in:  
+
  
 
http://www.codeproject.com/useritems/Share-Folder-c_.asp?df=100&forumid=413715&exp=0&select=2024187
 
http://www.codeproject.com/useritems/Share-Folder-c_.asp?df=100&forumid=413715&exp=0&select=2024187
  
 +
This link can be usefull too:
 +
 +
http://msdn2.microsoft.com/en-us/library/system.management.managementobject.invokemethod(VS.71).aspx
 
----
 
----
  
     <nowiki>Public Sub QshareFolder(ByVal FolderPath As String, ByVal ShareName As String, ByVal Description As String)
+
First of all, u need add the System.Management reference. This must be definied as public in the Generals Declarations of the app.
 +
 
 +
 
 +
'After, the public function called QshareFolder. 'This example is for folders, but u can change the values for files. 'Read the ManagementBaseObject MSDN. Also u can add more inParameters values.
 +
 
 +
----
 +
 
 +
     <nowiki>
 +
 
 +
'Importing the reference
 +
Imports System.Management
 +
 
 +
 
 +
Public Sub QshareFolder(ByVal FolderPath As String, ByVal ShareName As String, ByVal Description As String)
 
         Try
 
         Try
 
             'Create a ManagementClass object
 
             'Create a ManagementClass object

Latest revision as of 19:18, 24 July 2007

This code is for sharing folders or files in vb.net using the System.Management references. I transcode it from C in:

http://www.codeproject.com/useritems/Share-Folder-c_.asp?df=100&forumid=413715&exp=0&select=2024187

This link can be usefull too:

http://msdn2.microsoft.com/en-us/library/system.management.managementobject.invokemethod(VS.71).aspx


First of all, u need add the System.Management reference. This must be definied as public in the Generals Declarations of the app.


'After, the public function called QshareFolder. 'This example is for folders, but u can change the values for files. 'Read the ManagementBaseObject MSDN. Also u can add more inParameters values.


   

'Importing the reference 
Imports System.Management


Public Sub QshareFolder(ByVal FolderPath As String, ByVal ShareName As String, ByVal Description As String)
        Try
            'Create a ManagementClass object

            Dim ManagementClass As New ManagementClass("Win32_Share")
            '   Create ManagementBaseObjects for in and out parameters

            Dim inParams As ManagementBaseObject = ManagementClass.GetMethodParameters("Create")
            Dim outParams As ManagementBaseObject
            ' Set the input parameters

            inParams("Description") = Description
            inParams("Name") = ShareName

            inParams("Path") = FolderPath

            inParams("Type") = 0 'Disk Drive

            outParams = ManagementClass.InvokeMethod("Create", inParams, Nothing)

            If outParams.Properties("ReturnValue").Value <> 0 Then
              'error if u cant do it
            End If

        Catch ex As Exception
            'error if u cant do it
        End Try
    End Sub

This work perfect for me, in VB.NET 2005 NF2 SP2 (XP)

Its my first contribution, so sorry for my poor english :)

Nocturno - Nocturno27

msn@sistemasmd.com.ar