Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Netzlaufwerk(e) verbinden/trennen

Betrifft: Netzlaufwerk(e) verbinden/trennen von: Uwe Siebers
Geschrieben am: 31.08.2014 10:16:54

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

  

Betrifft: AW: Netzlaufwerk(e) verbinden/trennen von: Hajo_Zi
Geschrieben am: 31.08.2014 10:45:55

Hallo Uwe,

reich da nicht Dir?
If Dir(strVerzeichnis, vbDirectory) <> "" Then

GrußformelHomepage


  

Betrifft: AW: Netzlaufwerk(e) verbinden/trennen von: Luschi
Geschrieben am: 31.08.2014 10:52:21

Hallo Uwe,

versuche es mal so:

Sub Netzlaufwerk_verbinden()
    Dim objFSO As Object, objNetzwerk As Object
    
    On Error Resume Next
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetzwerk = CreateObject("WScript.Network")
    objNetzwerk.MapNetworkDrive "W:", "\\FBS31101\Server"
    On Error GoTo 0
    DoEvents
    
    If objFSO.DriveExists("W:") Then
        MsgBox "Lw W: existiert!"
    Else
       MsgBox "Sorry..., Lw W: konnte nicht erstellt werden!"
    End If
    Set objNetzwerk = Nothing
    Set objFSO = Nothing
End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Netzlaufwerk(e) verbinden/trennen von: Uwe Siebers
Geschrieben am: 31.08.2014 12:36:32

Hallo "Luschi"

das passt genau!!! Vielen Dank für Deine Antwort.