Netzwerk-Freigabe zurücknehmen Wie man eine bestehende Netzwerk-Freigabe wieder zurücknimmt, das erfahren Sie in diesem Tipp.
Autor:   Helmut Suhren	Bewertung:     [ Jetzt bewerten ]	Views:  14.469
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man ein Laufwerk oder Ordner im Netzwerk freigeben kann, haben wir Ihnen bereits gezeigt:
 Laufwerk/Ordner im Netzwerk freigeben

Heute zeigen wir Ihnen das Gegenstück dazu, mit dem sich eine Freigabe wieder zurücknehmen lässt.

Fügen Sie nachfolgenden Code in ein Modul ein.

Option Explicit
 
' zunächst die benötigten API-Deklarationen
Public Const NERR_SUCCESS As Long = 0&
 
Private Declare Function NetShareDel Lib "netapi32.dll" ( _
  ByVal ServerName As Any, _
  ByVal netname As String, _
  ByVal reserved As Long) As Long

' Hinweis:: Um die Funktion nutzen zu können 
' benötigen Sie die entsprechenden Systemrechte!
Public Function ShareDel(ServerName As String, _
  ShareName As String) As Long
 
  Dim dwServerName   As Long
  Dim nShareName As String
 
  dwServerName = StrPtr(ServerName)
  nShareName = StrConv(ShareName, vbUnicode)
 
  ShareDel = NetShareDel(dwServerName, nShareName, 0&)
End Function

Hinweis: Um die Funktion nutzen zu können benötigen Sie die entsprechenden Systemrechte!

Der Aufruf der Funktion erfolgt dann so:

' Servername (Rechnername)
Dim sServer As String
sServer = "\\SERVER"
 
' Freigabe-Name
Dim sName As String
sName = "SHARE"
 
' Freigabe zurücknehmen
Dim nResult As Long
nResult = ShareDel(sServer, sName)
If nResult <> NERR_SUCCESS Then
  MsgBox "Fehler bei der Zurücknahme der Netzwerk-Freigabe !"
End If