by LEVENT YILDIZ (3 Submissions)
Category: Windows System Services
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (11 Votes)
Well the simple way to map network drives with vb.
API DeclarationsDeclare 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
Private Sub cmdConnect_Click()
Dim x As Long
x = WNetAddConnection("\\CPU1\C\WINDOWS\DESKTOP", "", "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