Add a Network Drive

This tip shows you how to add a new mapped network drive to the local computer in your code:

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_
' The function was successful.
Const WN_NET_ERROR = 2_
' An error occurred on the network.
Const WN_BAD_PASSWORD = 6_
' The password was invalid.



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

Private Sub cmdAdd_Click()
AddConnection txtShareName.Text,_
txtPassword.Text ,_
txtDriveLetter.Text
End Sub