AatB
Gebruiker
- Lid geworden
- 15 dec 2007
- Berichten
- 257
Goedemorgen,
Ik heb een macro die bij het opstarten van de excelsheet een netwerkschijf sluit en daarna weer aansluit.
Dit doe ik omdat de netwerkkoppeling niet altijd bestaat of om een of andere reden verbroken is.
Bij het uitvoeren van de macro geeft hij 2 keer een korte dos-box weer.
Weet iemand een oplossing waarbij dit niet gebeurt?
Bedankt alvast,
mvg Aat
Ik heb een macro die bij het opstarten van de excelsheet een netwerkschijf sluit en daarna weer aansluit.
Dit doe ik omdat de netwerkkoppeling niet altijd bestaat of om een of andere reden verbroken is.
Bij het uitvoeren van de macro geeft hij 2 keer een korte dos-box weer.
Weet iemand een oplossing waarbij dit niet gebeurt?
Bedankt alvast,
mvg Aat
Code:
Sub Herstel_P_Schijf()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
' Verwijder eerst de bestaande toegewezen schijfletter (in dit geval P:)
objShell.Run "cmd.exe /C net use P: /delete /y", 1, True
' Voer het net use commando uit om een netwerkstation te verbinden
objShell.Run "cmd.exe /C net use P: \\192.168.1.102\XXXX /persistent:yes /user:xxxx xxxx", 1, True
Set objShell = Nothing
End Sub