Well the simple way to map network drives with vb.
Original Author: LEVENT YILDIZ
API Declarations
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
Code
Private Sub cmdConnect_Click()
Dim x As Long
x = WNetAddConnection("\CPU1CWINDOWSDESKTOP", "", "R:")
If x <> 0 Then
MsgBox "connect failed"
End If
End Sub
Private Sub cmdDisconnect_Click()
Dim x As Long
x = WNetCancelConnection("R:", 0)
If x <> 0 Then
MsgBox "Disconnect failed"
End If
End Sub