Private Sub btnShare_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnPfad.Click
 
Dim version As Double = Environment.OSVersion.Version.Major & "." & _
  Environment.OSVersion.Version.Minor
 
Dim pfad As String = IO.Directory.GetCurrentDirectory()
CheckWinShare("FREIGABENAME ") 'GROSSBUCHSTABEN!
 
If Me.btnPfad.Text = "FREIGABENAME im Netzwerk freigeben" Then
 
            'Freigabe erstellen:
            Dim Share_Info As String() = {pfad, "FREIGABENAME ", 0}
            Dim Win_Shares As ManagementClass = New ManagementClass( _
              "Win32_Share")
            Try
                Win_Shares.InvokeMethod("Create", Share_Info)
            Catch ex As System.Management.ManagementException
                MessageBox.Show(ex.ToString)
                Return
            Finally
                Win_Shares.Dispose()
            End Try
 
            If version >= 5.0 Then
                '2000 / XP
                MessageBox.Show("Freigabe: " + Share_Info(0) + " erfolgreich" & _
                  "erstellt!")
 
            ElseIf version <= 4.9 Then
                '98/Me - Ordner-Eigenschaften aufrufen:
                MsgBox("Unter W98/Me wird die Freigabe leider nur" & _
                  "schreibgeschützt erstellt." _
                & vbCrLf & "Wenn Sie auf 'OK'  klicken erscheint das Dialogfeld" & _
                "'Datei-Eigenschaften'." & vbCrLf & _
                "Wählen Sie das Register 'Freigabe'  und setzen sie die Option" & _
                "'Lese-/Schreibzugriff")
                ShellFileProperties(pfad)
                'Me.btnPfad.Text = "Freigabe entfernen"
            End If
            Me.btnPfad.Text = "Freigabe entfernen"
        ElseIf Me.btnPfad.Text = "Freigabe entfernen" Then
            RemoveWinShare("FREIGABENAME ")
            Me.btnPfad.Text = "FREIGABENAME im Netzwerk freigeben"
        End If
    End Sub
 
    Sub CheckWinShare(ByVal ShareName As String)
        'Funktion Freigabe aufheben:
        Dim WMISearcher As System.Management.ManagementObjectSearcher = New _
          ManagementObjectSearcher("SELECT * FROM Win32_Share")
        Try
            For Each share As ManagementObject In WMISearcher.Get
                If share.Properties("Name").Value.ToString = ShareName Then
                    Me.btnShare.Text = "Freigabe entfernen"
                    WMISearcher.Dispose()
                    Exit Sub
                Else : Me.btnPfad.Text = "FREIGABENAME im Netzwerk freigeben"
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Return
        Finally
            WMISearcher.Dispose()
        End Try
    End Sub
 
    Sub RemoveWinShare(ByVal ShareName As String)
        'Funktion Freigabe aufheben:
        Dim WMISearcher As System.Management.ManagementObjectSearcher = New _
          ManagementObjectSearcher("SELECT * FROM Win32_Share")
        Try
            For Each share As ManagementObject In WMISearcher.Get
                If share.Properties("Name").Value.ToString = ShareName Then
                    share.Delete()
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Return
        Finally
            WMISearcher.Dispose()
        End Try
        MessageBox.Show("Die Freigabe: " + ShareName + " wurde entfernt!")
    End Sub
 
End Class