🚀 go-pugleaf

Here's code to map a drive:

Private Type NETRESOURCE
        dwScope As Long
        dwType As Long
        dwDisplayType As Long
        dwUsage As Long
        lpLocalName As String
        lpRemoteName As String
        lpComment As String
        lpProvider As String
End Type

Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias
"WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As
String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

------------------

Here's a sample to map \\DavidsonD\win95 to N:

------------------

Const RESOURCETYPE_DISK = &H1
Const DEFAULT_CONNECT_DRIVE = "N:"

Dim NetworkConnection As NETRESOURCE
Dim NetworkPassword As String
Dim result as Long

UNCPath = "\\DavidsonD\win95"
NetworkPassword = "password"
NetworkConnection.dwType = RESOURCETYPE_DISK
NetworkConnection.lpLocalName = DEFAULT_CONNECT_DRIVE
NetworkConnection.lpRemoteName = UNCPath
result = WNetAddConnection2(NetworkConnection, NetworkPassword, "", 0)