<code><font color=green>' zunächst die API-Deklarationen</font>
Private Declare Function WNetAddConnection Lib "mpr.dll" _
  Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, _
  ByVal lpszPassword As String, _
  ByVal lpszLocalName As String) As Long
 
Const WN_SUCCESS = 0
Const WN_NET_ERROR = 2
Const WN_BAD_PASSWORD = 6
 
<font color=green>' Netzlaufwerk verbinden</font>
Dim lResult As Long  
Dim LocalDrive As String
Dim NetworkDrive As String
 
LocalDrive = "K:"
NetwortkDrive = "\rechnernameordner"
 
lResult = WNetAddConnection(LocalDrive, _
  vbNullString, NetworkDrive)
 
If lResult <> WN_SUCCESS Then
  If lResult = WN_NET_ERROR Then
    MsgBox "Netzwerkfehler!"
  ElseIf lResult = WN_BAD_PASSWORD Then
    MsgBox "Ungültiges Passwort!"
  Else
    MsgBox "Unbekannter Fehler"
  End If
End If</code>