3
Getrenntes Share ausblenden.Explorer neustarten VBA
Hallo zusammen!
mit
verbinde ich aus VBA heraus erfolgreich eine Freigabe, die ich aber auf dem gleichen Weg wieder trennen will. Das Trennen an sich klappt mit
Das Problem: Das Laufwerk V: ist zwar nicht mehr erreichbar aber weiterhin sichtbar. Erst wenn ich den Explorer neu starte, ist es weg. Mein Versuch das mit
zu erreichen, läuft leider nicht wie gewünscht: Der Explorer öffnet sich zwar, aber die Taskleiste und alle darin abgebildeten Apps sind nicht erreichbar.
Gibt es eine elegante Lösung den Laufwerksbuchstaben loszuwerden? Meine bisherige Recherche führte über Registry-Hacks bis Leere Ordner ausblenden ...
Vielen Dank vorab!
Spinnifex
mit
Sub ShareConnect()
Dim sCMD As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
sCMD = Shell("net use V: \\Server\Freigabe /user:testuser testpaswort /persistent:no")
Application.Wait Now + TimeValue("00:00:02")
If fso.DriveExists("V:\") Then
MsgBox "Connect!"
Else: MsgBox "Disconnect!"
End If
End SubSub ShareDisconnect()
Dim sCMD As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
sCMD = Shell("net use V: /delete")
If fso.DriveExists("V:\") Then
MsgBox "Connect!"
Else: MsgBox "Disconnect!"
End If
End SubDas Problem: Das Laufwerk V: ist zwar nicht mehr erreichbar aber weiterhin sichtbar. Erst wenn ich den Explorer neu starte, ist es weg. Mein Versuch das mit
Sub ExplorerRestart()
Dim sCMD As String
sCMD = Shell("taskkill /f /im explorer.exe")
Application.Wait Now + TimeValue("00:00:01")
sCMD = Shell("explorer.exe")
End SubGibt es eine elegante Lösung den Laufwerksbuchstaben loszuwerden? Meine bisherige Recherche führte über Registry-Hacks bis Leere Ordner ausblenden ...
Vielen Dank vorab!
Spinnifex
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 4174481482
Url: https://administrator.de/contentid/4174481482
Printed on: April 23, 2024 at 07:04 o'clock
3 Comments
Latest comment
Netzlaufwerke Mappen und Trennen macht man in VBA anders und zuverlässiger mit dem COM Object "WScript.Network"
https://ss64.com/vb/mapnetworkdrive.html
https://ss64.com/vb/removenetworkdrive.html
https://ss64.com/vb/mapnetworkdrive.html
https://ss64.com/vb/removenetworkdrive.html
1
Hallo Paddel und Danke für die Links.
Ich habe sie getestet und kann im Effekt im Explorer keinen Unterschied feststellen. Mein Laufwerk V: wird zwar brav getrennt, der LW-Buchstabe glotzt mich im Explorer aber immer noch frech an. Und den loszuwerden ist mein Ziel.
Frage zum Lernen: Was macht das COM-Objekt zuverlässiger als net use? Ich hatte damit bisher nie Schwierigkeiten.
Grüße
Ich habe sie getestet und kann im Effekt im Explorer keinen Unterschied feststellen. Mein Laufwerk V: wird zwar brav getrennt, der LW-Buchstabe glotzt mich im Explorer aber immer noch frech an. Und den loszuwerden ist mein Ziel.
Frage zum Lernen: Was macht das COM-Objekt zuverlässiger als net use? Ich hatte damit bisher nie Schwierigkeiten.
Grüße
'n Abend zusammen!
Ich konnte das Problem dadurch lösen, dass ich den Aufruf
oben durch den vollständigen Pfad
ersetzt habe. Es sind dann alle Fenster wieder da, und V: ist verschwunden.
Ich sehe das nicht als Lösung, sondern bestensfalls als Workaround und bin weiterhin für kontruktive Vorschläge dankbar!
Grüße Spinnifex
Ich konnte das Problem dadurch lösen, dass ich den Aufruf
sCMD = Shell("explorer.exe") sCMD = Shell("c:/windows/explorer.exe") Ich sehe das nicht als Lösung, sondern bestensfalls als Workaround und bin weiterhin für kontruktive Vorschläge dankbar!
Grüße Spinnifex
