Netzlaufwerk(e) verbinden/trennen
31.08.2014 10:16:54
Uwe Siebers
Guten Morgen zusammen!
Vermutlich "stehe" ich im Augenblick nur auf der Leitung. Mit dem nachfolgenden Code gelingt es _
mir bequem ein Netzlaufwerk (W:) zu verbinden bzw. zu trennen:
Sub Netzlaufwerk_verbinden()
Dim objNetzwerk As Object
Set objNetzwerk = CreateObject("WScript.Network")
objNetzwerk.MapNetworkDrive "W:", "\\FBS31101\Server"
Set objNetzwerk = Nothing
MsgBox "Die Verbindung zum Server wurde erfolgreich hergestellt!", vbInformation, "Job 2015 - _
_
_
Administrator"
End Sub
Sub Netzlaufwerk_trennen()
Dim objNetzwerk As Object
Set objNetzwerk = CreateObject("WScript.Network")
objNetzwerk.RemoveNetworkDrive "W:"
Set objNetzwerk = Nothing
MsgBox "Die Verbindung zum Server wurde wieder getrennt!", vbInformation, "Job 2015 - _
Administrator"
End Sub
Was aber, wenn dieses Laufwerk im Netz schlicht nicht zur Verfügung steht? Wenn dem so ist, möchte ich eine MsgBox einfügen. Nur an welcher Stelle? Irgendwie "fehlt das was im Code. Wie gesagt, ich denke, ich steh "auf der Leitung".
Ähnlich soll eine MsgBox ausgegeben werden, so beim Versuch, die Verbindung zu trennen, diese gar nicht erst besteht.
Vielen Dank schon mal für Eure Hilfe.
Uwe