System.IO.Directory.CreateDirectory("C:\MyTestShare")
        Dim managementClass As New ManagementClass("Win32_Share")
        Dim inParams As ManagementBaseObject = _
          managementClass.GetMethodParameters("Create")
        inParams.Item("Description") = "My Files Share"
        inParams.Item("Name") = "My Files Share"
        inParams.Item("Path") = "C:\MyTestShare"
        inParams.Item("Type") = 0
        If (DirectCast(managementClass.InvokeMethod("Create", inParams, _
          Nothing).Properties.Item("ReturnValue").Value, UInt32) <> 0) Then
            Throw New Exception("Unable to share directory.")
        End If

EALA FREYA FRESENA