AddNetConnect

Function CancelConnection(DriveLetter As String, _
        Force As Integer) As Integer
    On Local Error GoTo CancelConnection_Err
    CancelConnection = WNetCancelConnection(DriveLetter, _
        Force)
    CancelConnection_End:
    Exit Function
    CancelConnection_Err:
    CancelConnection = Err
    MsgBox Error$
    Resume CancelConnection_End
End Function

per aggiungere una nuova connessione inserisci:
variable = AddConnection(<SharePath>, _
    <Password>, <DriveLetter>)
per eliminare una connessione inserisci:
variable = CancelConnection(<SharePath, <Force>)
Esegui il progetto.

Option Explicit
Declare Function WNetAddConnection Lib "mpr.dll" Alias _
"WNetAddConnectionA" (ByVal lpszNetPath As String, _
ByVal lpszPassword As String, ByVal lpszLocalName _
As String) As Long
Declare Function WNetCancelConnection Lib "mpr.dll" _
Alias "WNetCancelConnectionA" (ByVal lpszName _
As String, ByVal bForce As Long) As Long
Const WN_SUCCESS = 0 ' La funzione ha avuto successo.
Const WN_NET_ERROR = 2 ' Si e' verificato un errore nella
' rete.

Const WN_BAD_PASSWORD = 6 ' La password non e' valida.
Function AddConnection(MyShareName As String, _
MyPWD As String, UseLetter As String) As Integer
On Local Error GoTo AddConnection1_Err
AddConnection = WNetAddConnection(MyShareName, _
MyPWD, UseLetter)
AddConnection_End:
Exit Function
AddConnection_Err:
AddConnection = Err
MsgBox Error$
Resume AddConnection_End
End Function

Function CancelConnection(DriveLetter As String, _
Force As Integer) As Integer
On Local Error GoTo CancelConnection_Err
CancelConnection = WNetCancelConnection(DriveLetter, _
Force)
CancelConnection_End:
Exit Function
CancelConnection_Err:
CancelConnection = Err
MsgBox Error$
Resume CancelConnection_End
End Function

per aggiungere una nuova connessione inserisci:
variable = AddConnection(<SharePath>, _
<Password>, <DriveLetter>)
per eliminare una connessione inserisci:
variable = CancelConnection(<SharePath, <Force>)
Esegui il progetto.