Wie kann man mit VBA (Excel) - Mitteln einen Netz-Laufwerksbuchstaben erzeugen?
(Windows XP)
Sub b()
Dim objNetzwerk As Object
Set objNetzwerk = CreateObject("WScript.Network")
'Netzlaufwerk verbinden auf "B:"(zu 99,99% frei)
On Error GoTo fehler
objNetzwerk.MapNetworkDrive "B:", "\\server1\freigabe", , "benutzer", "passwort"
'mach was
'Netzlaufwerk trennen
objNetzwerk.RemoveNetworkDrive "B:"
Set objNetzwerk = Nothing
Exit Sub
fehler:
MsgBox Err.Number & vbCr & Err.Description
' Resume Next
Set objNetzwerk = Nothing
End Sub
mfg Anton